高级9：You’re Twisting My Words

时间：2008-05-09 来源：starB6

专家的： open (TextFile, "C:\\Scripts\\Alice.txt");
@arrTextFile = <TextFile>;
close (TextFile);

$strFile = @arrTextFile[0];

chomp($strFile);

@arrWords = split(' ',$strFile);

$x = @arrWords;

for ($i = 0; $i < $x; $i ++)
    {
        $strValue = @arrWords[$i];
        $strValue = reverse $strValue;
        @arrWords[$i] = $strValue;
    }

$strNewContents = join(" ",@arrWords);

print $strNewContents;
我的： #!/usr/bin/perl -w use strict; open FH," < alice.txt" or die "$!";
my $mystring=<FH>;
my @every=split / /,$mystring;
my $number=@every;
my $laststring="";
for (my $i=0;$i<$number;$i++)
{
   my $myreverse=reverse $every[$i];
# print "$myreverse\n ";
$laststring=$laststring . " " .$myreverse;
}
print "@every\n";
print "******************\n";
print "$laststring";

相关阅读更多 +