Question

这是我的数据：

4601 000000000002950 000000600537060DB000000000000000 000000600537060DB 46004375010000009000282959900028252890002825280253563562 V4120 20132352013235 1003NN 10 0`.

和我的Perl程序

my$string = "4601 000000000002950 000000600537060DB000000000000000 000000600537060DB 46004375010000009000282959900028252890002825280253563562 V4120 20132352013235 1003NN 10 0";
   my $char = substr($string, 0, 2);
   print $char;

打印46。

如果我在文件/home/jack/Desktop/Perl_file.txt中有这些数据，我怎样才能使用这个文件数据获得相同的结果。

Answer 1

我想您只是在询问如何阅读Perl中的文件？

# open file for reading
open my $fh, '<', "/home/jack/Desktop/Perl_file.txt" or die $!;
# iterate line by line 
while (my $line = <$fh>) {
    # now you can operate on $line. E.g., print, substr, whatever...
    print $line;
    # or like you have in your example
    my $char = substr($line, 0, 2);
    print $char, "\n";
}
close $fh;

如何从文件中读取数据

1 个答案: