perl语言实现输入一个字符串，将其反序输出到屏幕 麻烦把代码粘贴给我，我急用。

perl语言实现输入一个字符串，将其反序输出到屏幕 麻烦把代码粘贴给我，我急用。

$| = 1;
print "Input string: " ;
chomp ( my $str = );
print reverse split //, $str;追问谢谢你又来回答我的问题，我刚运行了下楼上的程序，并加入了定义了my $Seq;但是会报错：
Use of uninitialized value $Seq in reverse at Text-10.pl line 8, line 1.

Output String:

#!/usr/bin/perl -w
use strict;
print "请输入字符串:";
my $String = ;
my $Seq;
chomp $String;
print "Input String:$String\n";
my $RevString = reverse($Seq);
print "Output String:$RevString\n";追答嘿.. 你问 ta 吧.. 我不好意思说.. 这代码的问题还不只这个呢..追问帮忙改下咯，我现在问不了她了，没有追问的按钮了。你的代码简洁 实用，我想问下$| = 1;这句放在首部是什么意思，去掉行吗？追答$| = 1 是 autoflush = true 的意思

你去搜一下 perl autoflush 吧.. 我要出去了.

#!/usr/bin/perl -w
use strict;
print "请输入字符串:";
my $String = ;
chomp $String;
print "Input String:$String\n";
my $RevString = reverse($Seq);
print "Output String:$RevString\n";

其中reverse 函数就是将字符串倒序的。