Regular expression# Unix - 噫吁兮,危乎高哉
f*y
1 楼
#!/usr/bin/perl
$line = "one two three...";
print "$line\n";
$line =~ s/^([^ ]+) +([^ ]+)/$2 $1/;
print "$line\n";
$line = "one two three...";
print "$line\n";
$line =~ s/^([^ ]+) +([^ ]+)/$2 $1/;
print "$line\n";