perl怎么读取文件或者路径参数

perl怎么读取文件或者路径参数

我用<>总是不得要领,

my ($file) = @_,取到的总是文件行数,如果是@file则是文件内容
但是 @_不应该是参数列表吗,为什么不是 filename呢, 如果是输入路径的话,@_甚至 == 0,

但是我很希望能够直接在参数里得到路径名,然后批量打开某些类型的文件, 还请各位指教


还有一个问题,是关于提取数据的

2222  eewweasdds,asdasd.sadsadasdas
          ddasdddddddddddddddddddda
          ddddddddddddddddddddddddddd
2821  easdddddddddddddddddddddddd
2192  288888888888888888888ass0a-das.
          as;dddsaddaa0---------22222222

诸如此类,左边很好办,可是右边并不限于单行,我该如何把这样的数据提取为  name title的格式存到数据表里呢
my $file='file.txt';
my $text;
{
    local( $/, *FH ) ;
    open( FH, $file ) or die "$! \n";
    $text = <FH>;
}
my @ones = split(/\d{4}/,$text);
看小骆驼。
语法得学,不能光靠摸索。


QUOTE:
原帖由 flw 于 2008-11-17 09:15 发表
看小骆驼。
语法得学,不能光靠摸索。

就是看的羊驼书,对于<>说的似乎很清楚,但是,用起来好像就不同了,书里说了<>第一次会初始化为@ARGV,那么按道理,我总是可以得到$ARGV[1]的,但是不论是路径还是文件名都不行,如果$ARGV[1]就是文件内容的话,我就不知道怎么得到文件路径了