#!/usr/bin/perl
use IO::File;
my $file = shift;
my $ft = IO::File->new($file);
my $line = <$ft>;
print $line;
--
sclin by 淳
全站熱搜
#!/usr/bin/perl
use IO::File;
my $file = shift;
my $ft = IO::File->new($file);
my $line = <$ft>;
print $line;
--
sclin by 淳
留言列表