[PERL] 한줄씩 읽어 문자조건을 만족할때 원하는 문자 출력하기

momo7의 이미지

오랜만에 인사드리네요.

아무리 혼자 해도 답이 나오질 않아, 문제가 무엇인지 의견을 여쭙니다.

데이터 중간에 "tas ="이 나오면 야호를 입력하라는 것인데

숫자는 잘 인식하나, 문자로 하면 이상하게 원하는 결과가 나오질 않습니다.

혹시 무슨 문제 때문인지 아시나요?

실제로는 "tas =" 문자가 나온 이후로 데이터를 정리하며 출력하는 코드를 짤려고 하는데

테스트 코드가 진도가 안나가니, 다음으로 갈 수가 없습니다.

--------data ------------
1,1,1,1,1
2,2,2,2,2
tas =
1,1,1,1,1
2,2,2,2,2
2,2,2,2,3
2,2,2,2,4
2,2,2,2,5
------------------------

--------기대하는 결과---
1,1,1,1,1
2,2,2,2,2
야호
tas =
1,1,1,1,1
2,2,2,2,2
2,2,2,2,3
2,2,2,2,4
2,2,2,2,5
-------------------

 
use strict;
use warnings;
use 5.010;
 
my (%arr,@arr,$i);
open my $fh1, '<', 'test1.txt' or die $!;
 
while (<$fh1>){
@arr = split (/\,/);
if ($arr[0] eq "tas ="){
print "야호\n";
}
print join ",", @arr;
}

File attachments: 
첨부파일 크기
Plain text icon test1.txt84바이트
raymundo의 이미지

while 문 조건부에서 $fh1 파일핸들로부터 한 줄을 읽어서 $_ 변수에 담는데, 이 때는 마지막 개행문자까지 붙어있는 채로 오기 때문에, 비교를 "tas =" 가 아니라 "tas =\n"과 하면 잘 될 겁니다.
(만일 윈도우라면 "tas =\r\n"과 해야 하려나 모르겠는데 아마 \n 만으로도 잘 될 것 같습니다)

사실 숫자를 읽을 때도 첫 줄을 읽었을 때 @arr 배열의 원소는
( "1", "1", "1", "1", "1\n" )
이었죠. "1\n"을 숫자로 취급하여 연산할 때는 1로 처리되니까 티가 나지 않았을 뿐이고요.

아니면 루프 진입한 후 제일 먼저
chomp $_;
를 실행해서 개행문자를 제거할 수도 있겠는데, 이쪽이 일관성 측면에서는 낫지 싶습니다.

좋은 하루 되세요!

momo7의 이미지

덕분에 안풀리는 문제를 해결했습니다.

데이터 파일구조에 그런것 까지 신경써야 하는줄은 몰랐습니다.

덕분에 하나 더 배우고 갑니다.

댓글 달기

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
이것은 자동으로 스팸을 올리는 것을 막기 위해서 제공됩니다.