作者handsomegirl (薰)
看板perl
标题Re: [问题] 关於上下左右转换的问题
时间Tue Oct 16 09:35:45 2007
※ 引述《jjt (jet)》之铭言：
: 1.先读取前三行
: 然後读取剩下的
: open FP,"test.txt" or die $!;
: $row=<FP>.<FP>.<FP>;
假设前面有几行不一定的话,或是有很多行的话,还可以这样写吗?
或是有别的办法?用for可以吗?
: @text=<FP>;
: close FP;
: 2.把 行首跟内文分开
: foreach(@text)
: {
: push @column,substr $_, 0, 3;
: push @content,substr $_, 3,-1;
假设前後的行数都不一定,是否要设变数?或是有比较好的想法?
例如以前面的行列数当作INDEX?
: }
: 3.印出来
: print "$row";
: foreach(0...$#content)
: {
: print $column[$_], reverse_x($content[$#content-$_]), "\n";
: }
: sub reverse_x
: {
: my $i = shift;
: join '', reverse unpack 'a ' x length $i,$i;
: }
: 黄字部份 $#content-$_ 表示反转 , 改成 $_ 就是不转啦
: reverse_x 最後那个join '', 把array连起来 然後再印出来那边
: 其实不用join结果也一样 端看你後来要怎麽处理或是显示
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.65.55.161
※ 编辑: handsomegirl 来自: 61.65.55.161 (10/16 10:55)