적수네 동네 - 질문과 답변 [ 게시물 수정 ]

	>> Edit article


			이름
			제목
			패스워드

설명해주신대로 처음부터 해서 asc파일을 생성하였읍니다.. 
그런다음 split.pl을 하라고 해서...설명해주신소스대로 
라고 했더니 다음과 같은 에러가 떴읍니다.. 
도와주세요...부탁드립니다... 
#!/usr/bin/perl 
$infile = $ARGV[0] ; 
$outdir= $ARGV[1] ; 
$options = $ARGV[2] ; 
open( infileH, $infile ) || die "Cannot open $fileName."; 
 if ( !$options ) { &printsql() ; } 
 sub printsql() 
{ 
while ( $aLine = ) { 
if ( $aLine =~ /^d*.[FDESANPLTI]/ ) { 
 @arrtext = split( /./,$aLine ) ; 
 if ( $aLine =~ /^d*.Text/ ) { 
 $prevno = $arrtext[0]; 
} elsif ( $aLine =~ /^d*.[FDESANPLI]/ ) { 
 $prevno = 0 ; 
} 
 open ( outfileH, ">>$outdir/$arrtext[0]") || die "Cannot open $arrtext[0]."; 
printf outfileH "$aLine" ; 
} 
close (outfileH ) ; 
} 
close( infileH ); 
} 
  ///에러내용/// 
 ./split.pl nic.asc nic_mysql 
: command not found 
./split.pl: =: command not found 
: command not found 
./split.pl: =: command not found 
: command not found 
./split.pl: =: command not found 
: command not found 
./split.pl: syntax error near unexpected token `infileH,&#039; 
&#039;/split.pl: ./split.pl: line 6: `open( infileH, $infile ) || die "Cannot open $;