perl 공부중인데요.
글쓴이: lbmicrobiota / 작성시간: 목, 2014/05/15 - 8:48오후
use strict;
my $sFile = "Input/example003.txt";
open (in, $sFile) or die;
my $i=0;
while (my $sLine = ){
$sLine =~s/\n//g;
$sLine =~s/\r//g;
$i=$i+1;
print $i."-------------------------------------\n";
my @aLine = split("\t", $sLine);
for (my $j=0; $j<4 ; $j++) {
print $aLine[$j]."\t";
}
print "\n";
}
close (in);
이러한 코드가 있는데요.. 여기에 0번쨰 라인에 글씨를 첨가하구 싶은데..
어떻게해야될지 모르겠어요,, 도와주세요..
Forums:
댓글 달기