[완료]perl 파일 내용수정
글쓴이: ascendo / 작성시간: 수, 2009/03/18 - 9:27오후
안녕하세요 perl 관련 한 질문입니다.
LUC1
1234
1233
1122
1225
1233
LUC2
4555
4585
4225
1124
LUC3
1555
1155
이런 파일 형식을
1234 LUC1
1233 LUC1
1122 LUC1
1225 LUC1
1233 LUC1
4555 LUC2
4585 LUC2
4225 LUC2
1124 LUC2
1555 LUC3
1155 LUC3
위의 형식으로 고치고 싶습니다.
그래서 코드를 짜 보았는데
아무것도 나오질 않네요..
1 #!/usr/bin/perl
2
3 open $file,'<',$ARGV[0];
4
5 while(<$file>){
6
7 if ($line[0]=~/LUC/)
8 {
9 $name=$line[0];
10 print "$_\t$name\n";
11 }
12 }고수분들의 많은 도움 부탁드립니다.
Forums:
이렇게 해보세요
.
.
.
.
#!/usr/bin/perl use strict; use warnings; open my $file,'<',$ARGV[0]; while ( my $line = <$file> ) { if ( $line =~ m/^LUC/ ) { chomp $line; while ( my $line2 = <$file> ) { chomp $line2; if ( $line2 =~ m/^\s*$/ ) { print "\n"; last; } print "$line2\t$line\n"; } } }한줄로 perl -000 -aF'\n'
한줄로
perl -000 -aF'\n' -ne'$h=shift @F;print "$_ $h\n" for @F;print"\n"' try.txt한줄코드는 한줄코드로서 용도가 있는거니까,, 암호같다고 뭐라고 그러진 마세요^^.
털썩...
형님 존경합니다.
(보면 볼수록 오묘한 펄의 세계..)
정말감사합니다
두분다 정말 큰도움이 되었습니다.
한줄 스크립트는 정말 어렵네요 ^^
이번 YASPS에 오시면,,
이번 YASPS에 오시면,, 원라이너 가르쳐 드립니다.
http://www.onoffmix.com/e/pung96/775
http://cafe.naver.com/perlstudy.cafe?iframe_url=/ArticleRead.nhn?articleid=82
우왕...
은근남...
_________
use perl;
use perl;
네이버 카페주소가
네이버 카페주소가 이상하네요
http://cafe.naver.com/perlstudy.cafe
근데..네이버에
근데..네이버에 가입해야 하는거죠? ㅠㅠ
온오프믹스나,,
온오프믹스나,, 메일로도 참가 가능하세요^^
저도 one-liner 신공 한 번~
pung96님 것 보다 조금 짧습니다.
perl -000 -ne '($k,@a)=split/\n/;print map("$_ $k\n",@a),"\n"' try.txt일없는 bash while read R;
일없는 bash
while read R; do [ -z "$R" ] && L=""; _L=${R#LUC}; [ "$_L" == "$R" ] && echo "$R" "$L" || L=$R; done < try.txtOTL
설명좀 부탁
설명좀 부탁 드립니다...
특히 ...
_L=${R#LUC}이 부분..._L 에 R 에 값이 있으면 1 이 들어가는것 아닌가요?
$R 에서 ^LUC 를
$R 에서 ^LUC 를 검사한다음,
있다면 그것을 잘라내고 나머지를 _L 에 복사합니다.
없다면 $R 이 그대로 _L 에 복사됩니다.
$_L 과 $R 을 비교해서,
틀리다면 L 에 $R 을 복사합니다.
같다면 $R $L 을 출력합니다.
그 밖에 눈에 띄지 않는 shell 테크닉으로... IFS 분리기능을 이용해서 '빈 줄' 을 '빈 줄'로 확실하게 처리한다는 것 정도.
OTL
좀 더 줄여 볼까요
좀 더 줄여 볼까요 :-)
perl -pe '$,=$&,s,.*,,s if m;LUC.*;;s;\d+;$& $,;' try.txt--
War doesnt determine whos right, just whos left.
War doesnt determine whos right, just whos left.
오우 굿샷!!
굿샷임다.
그런데 의도적으로 특수변수와 구분자로 꼬아 놓으셔서
Perl이 이해하기 힘들다라는 편견을 줄 수 있을 것 같네요.
다른 분들이 보기 좋게 고치면
저런 코드가 실제로 Perl에서 어떻게 해석되는지 보려면
결과
LINE: while (defined($_ = <ARGV>)) { $k = $&, s/.*//s if /LUC.*/; s/\d+/$& $k/; } continue { print $_; }죄송 - gawk 버전
gawk '/^LUC/ { name=$0; getnext; } /^[0-9].*/ { print $0, name; }' luc.dat
perl이 아니라서 죄송합니다. ^^;
===========================================================================
Shocky Han
BIM Consultant, Certified Information Systems Auditor
Seoul, Korea.
===========================================================================
===========================================================================
Shocky Han
BIM Consultant, Certified Information Systems Auditor
Seoul, Korea.
===========================================================================
이제 어느분께서
이제 어느분께서 파이선 버젼을 보여 주시겠습니까?
댓글 달기