펄을 이용해 문서 내 특정 라인들의 내용을 다른 결과값으로 바꿀려고합니다.

arna0320의 이미지

펄을 이용해 실험프로그램을 구성하는데 처음으로 코딩이라는 걸 해 보니 어렵습니다.
하나씩 검색하면서 여기서 도움 많이 받았는데 또 막혀서 결국 도움글까지 올리게 되었습니다ㅜㅜ

아래와 같이 총 100여개의 실험 샘플에 대한 실험 결과 파일(result_clean.mlf)이 있습니다.

#!MLF!#
"'*'/Bn036.rec" # 샘플1 파일명
0 264000000 benign -6817.687500 # 샘플 1의 결과값
.
"'*'/BL5_44100.rec" # 샘플2 파일명
0 61600000 benign -1725.979614 # 샘플 2의 결과값
.
# 100개의 샘플에 대한 파일명과 결과값이 연속으로 나타납니다(다 적기에는 양이 많아서..)

기본이 되는 위의 'result_clean.mlf' 파일의 내용으로 다른 실험을 위해 각 샘플의 결과값(0 264000000 benign -6817.687500)만을 변경하여 동일한 형식으로 'result_clean_ch.mlf'에 저장하고자 합니다.
변결 될 내용은 아래의 for문과 같습니다.

$REC_DIR=`cd`;
chop($REC_DIR);
 
open(fp1,"result_clean.mlf");
open(fp2,">result_clean_ch.mlf");
@line=<fp1>;
chop(@line);
close(fp1);
 
for($j=2;$j<$#line;$j=$j+3)
{		
	$test= "$line[$j]";
	@line2=split(/ /,$line[$j]);	
	$result=$line2[3]/$line2[1]/10000;
	$line2[3] = $result;
	$line2[1] = "100000";
	print fp2 "$line2[0] $line2[1] $line2[2] $line2[3]\n";
 
}

최종적으로는 다음과 같이 만들고 싶습니다.

#!MLF!#
"'*'/Bn036.rec" # 샘플1 파일명
0 100000 benign -2.58245738636364 # 샘플1 의 결과값을 for문으로 변경한 결과값
.
"'*'/BL5_44100.rec" # 샘플2 파일명
0 61600000 benign -2. 80191495779221 # 샘플2 의 결과값을 for문으로 변경한 결과값
.

새로운 파일로 저장해도 되고 원본 파일에 for문으로 수정한 내용만 치환 시킬 수 있어도 되고요

정말 기초적인 내용일 수 있고 복잡할 수도 있는데 자연계열의 저로서는 코딩이 너무 어렵네요..
고수님들 도움 부탁드립니다 꾸~벅

익명 사용자의 이미지

한번 해봤습니다. 참고해보세요.

#!/usr/bin/perl
use warnings;
 
while(<STDIN>){ 
        if(/^\d.*/){    # 첫 글자가 0~9이면
                chomp;  # 맨 뒤의 개행문자를 날리고 시작합니다.
                my @fields = split /\s+/;       # space 문자를 기준으로 잘라서
                $fields[3] = $fields[3] / $fields[1] / 10000;   # 질문자님이 원하시는 계산을 하고
                $fields[1] = 100000;
                print join(" ", @fields), "\n"; # 다시 문자열로 join하여 출력
        }
        else{   # 조건에 안 맞는 라인은 그대로 다시 출력
                print;
        }
}
arna0320의 이미지

지인이 말했던 코드가 저런 거였군요! 굉장히 고급스러워 보입니다ㅜㅜ
저는 무식하게 아래와 같이 그냥 새 파일에 저렇게 저장시켜 버렸습니다.

$REC_DIR=`cd`;
chop($REC_DIR);
 
open(fp1,"result_clean.mlf");
open(fp2,">result_clean_ch.mlf");
@line=<fp1>;
chop(@line);
close(fp1);
 
print "#!MLF!#\n";
for($j=2;$j<$#line;$j=$j+3)
{		
	$name=$line[$j-1];
	@line2=split(/ /,$line[$j]);	
	$result=$line2[3]/line2[1]/100000;
	$line2[3] = $result;
	$line2[1] = "100000";
        print fp2 "$name\n";
	print fp2 "$line2[0] $line2[1] $line2[2] $line2[3]\n";
	print fp2 ".\n";
}

글쓴이 님이 주신 코드 참고해서 하나하나씩 공부해 보도록 하겠습니다. 정말 감사합니다^^
qiiiiiiiip의 이미지

위에 보여주신 원본 mlf 파일에서 끝점 정보와 score값만 유의미한 값인 것 같은데..
그걸 임의값으로 치환할꺼면 그냥 file list로부터 새로운 mlf 파일을 생성하는 편이 더 간단해 보이네요..

이렇게 치환해서 하시고자 하는일이 무엇인지 조금 더 써주시면,
아마 최종적으로 더 간단한 방법도 있을것 같네요..

댓글 달기

Filtered HTML

  • 텍스트에 BBCode 태그를 사용할 수 있습니다. URL은 자동으로 링크 됩니다.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>
  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.

BBCode

  • 텍스트에 BBCode 태그를 사용할 수 있습니다. URL은 자동으로 링크 됩니다.
  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param>
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.

Textile

  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • You can use Textile markup to format text.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>

Markdown

  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • Quick Tips:
    • Two or more spaces at a line's end = Line break
    • Double returns = Paragraph
    • *Single asterisks* or _single underscores_ = Emphasis
    • **Double** or __double__ = Strong
    • This is [a link](http://the.link.example.com "The optional title text")
    For complete details on the Markdown syntax, see the Markdown documentation and Markdown Extra documentation for tables, footnotes, and more.
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>

Plain text

  • HTML 태그를 사용할 수 없습니다.
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.
  • 줄과 단락은 자동으로 분리됩니다.
댓글 첨부 파일
이 댓글에 이미지나 파일을 업로드 합니다.
파일 크기는 8 MB보다 작아야 합니다.
허용할 파일 형식: txt pdf doc xls gif jpg jpeg mp3 png rar zip.
CAPTCHA
이것은 자동으로 스팸을 올리는 것을 막기 위해서 제공됩니다.