[root@mysql1 perl]# cat 5.pl
#!/usr/bin/env perl
print "enter some lines, then press ctrl-D:\n"; #或者试试ctrl-Z
@lines=<STDIN>;
@reverse_lines=reverse @lines;
print @reverse_lines;
[root@mysql1 perl]# cat 6.pl
#!/usr/bin/env perl
print "enter some lines, then press ctrl-D:\n";
print reverse <STDIN>;
#!/usr/bin/env perl
print "enter some lines, then press ctrl-D:\n"; #或者试试ctrl-Z
@lines=<STDIN>;
@reverse_lines=reverse @lines;
print @reverse_lines;
[root@mysql1 perl]# cat 6.pl
#!/usr/bin/env perl
print "enter some lines, then press ctrl-D:\n";
print reverse <STDIN>;