#!/usr/bin/perl
use IO::File;
my $file = shift;
my $ft = IO::File->new($file);
my $line = <$ft>;
@a = split(' ',$line);
print $a[0];
全站熱搜
#!/usr/bin/perl
use IO::File;
my $file = shift;
my $ft = IO::File->new($file);
my $line = <$ft>;
@a = split(' ',$line);
print $a[0];
留言列表