Perlで文字列を/で分割（split）しよう

久しぶりにファイルパスの文字列を分解しようとしたのですが、書き方をスコーン！ と忘れてしまっていたので自分用にメモメモです φ（．．）。

単純に区切り文字になる / を \ でエスケープしてやれば良いだけの話なんですが、何で抜けてたかなぁ？(^_^;)

#!/usr/bin/perl

use strict;
use warnings;

my $pathStr = '/home/mukairiku/hoge/sample.txt';
my @pathArray  = split(/\//, $pathStr);

print shift(@pathArray)."\n"; # 結果は ""(空の文字列)
print pop(@pathArray)."\n";   # 結果は "sample.txt"
 

うん、これでＯＫ！