使用道具 举报
cat a|sed 's/^.*>\(.*\)<.*$/\1/'
#!/usr/bin/perl -w use strict; my $ok=`cat a`; print "$1\n" if($ok=~ /^.*>(.*)<.*$/) ;
本版积分规则 发表回复 回帖后跳转到最后一页