생각해보면 간단한데 막상 코드를 생각해보니 생각나지 않아 질문드립니다.....(perl은 인제 시작했습니다.ㅠㅠ)
특정 문자열을 찾아 그 문자열 밑으로 값을 입력하고 싶은데.. 떠오르지가 않습니다....ㅠㅠ
ex) example test haha
원하는 결과물 ex) example jj test haha
감사합니다.ㅠㅠ
펄을 사용하시는 가 보군요 :-)
국내에 펄 커뮤니티가 있습니다.
http://webchat.freenode.net/?channels=perl-kr 에 오시면 많은 펄 사용자들과 만나실 수 있습니다.
http://www.facebook.com/groups/perl.kr/ 페이스북 그룹도 있어요 :-)
#!/usr/bin/perl -w use Encoding; @infile = <*.txt>; foreach $infile (@infile) { $outfile="$infile.mod"; ### via PerlIO open(INPUT, "< :encoding(utf-16)", $infile) || die "Can't open < $infile for reading: $!"; open(OUTPUT, "> :encoding(cp949)", $outfile) || die "Can't open > $output for writing: $!"; while (<INPUT>) { # auto decodes $_ s/example test/example jj test/g; s/ /\n/g; print OUTPUT; # auto encodes $_ } close(INPUT) || die "can't close $infile: $!"; close(OUTPUT) || die "can't close $outfile: $!"; }
펄을 사용하시는 가 보군요 :-)
펄을 사용하시는 가 보군요 :-)
국내에 펄 커뮤니티가 있습니다.
http://webchat.freenode.net/?channels=perl-kr 에 오시면 많은 펄 사용자들과 만나실 수 있습니다.
http://www.facebook.com/groups/perl.kr/ 페이스북 그룹도 있어요 :-)
시험해보지는 않았습니다만...
#!/usr/bin/perl -w use Encoding; @infile = <*.txt>; foreach $infile (@infile) { $outfile="$infile.mod"; ### via PerlIO open(INPUT, "< :encoding(utf-16)", $infile) || die "Can't open < $infile for reading: $!"; open(OUTPUT, "> :encoding(cp949)", $outfile) || die "Can't open > $output for writing: $!"; while (<INPUT>) { # auto decodes $_ s/example test/example jj test/g; s/ /\n/g; print OUTPUT; # auto encodes $_ } close(INPUT) || die "can't close $infile: $!"; close(OUTPUT) || die "can't close $outfile: $!"; }