#!/usr/bin/perl
$str= "門是開著的，燈是關著的";
print $str,"\n";
print $str,"\n"
if ($str=~s/(門)(.*)(，)(燈)(.*)/$4\t$5\t$3\t$1\t$2\t$3/);
$str1= "庭院深深深幾許";
print $1,"\n" if ($str1=~/(深)\1\1/);
[root@xxx xxxx]# ./sed.pl
門是開著的，燈是關著的
燈 是關著的 ， 門 是開著的 ，
深
全站熱搜
- Jul 15 Thu 2010 13:46
Perl-字串處理(1)
留言列表
留言列表發表留言
