현재 위치

홈 ›› Forums ›› 공부 ›› 프로그래밍 QnA

Perl 에서 search 후 count 하는 법 질문

eventia의 이미지
글쓴이: eventia / 작성시간: 화, 2009/08/25 - 8:00오후

tr 이나 s 를 사용해야 할 것 같은데
기본적으로 한 라인이 다음과 같습니다.

aaa/5rt===bbb/er3===ccc/54bT===trt/34df45===kdk/343-qqq/342===ccc/54bT===trt/34df45

스페이스가 표시가 안되서 - 로 대체합니다. 탭은 === 로 대체 합니다.

이 라인에서 빈공백은 /t(탭문자)로 이루어져 있습니다. (여기서는 편의상 세개의 스페이스로 대체했습니다만) 하나의 칸은 스페이스를 의미합니다. 위의 경우 총 7개의 배열에 넣으려고 합니다. 스페이스 하나로 띄워진 부분은 하나로 연결시키고, 탭으로 분리된 것만 따로 처리를 해야 하는데, 여기서 /t 의 갯수를 어떻게 하면 셀수 있을까요?

$count = s/\t/\t/g;
$count = tr/\t/\t/g;

이 방법(들)으로는 에러가 나오네요. 아직 펄을 제대로 배우지 못한 상태라 버벅거리고 있습니다. s 쓰거나 tr 을 쓰거나 해야 할 것 같은데, 그에 관해서 나온 문법 도움말들이 대부분 간단한 알파벳정도에 대한 search 기능 정도로 애를 먹고 있습니다. 자세하게 나온 도움말이 있었으면 하는데 잘 못 찼겠네요.

참고로 빈공백에는 스페이스도 있고, 탭도 있는데 탭의 갯수만 세려고 합니다. 아시는 분의 도움을 구합니다.

Forums: 
프로그래밍 QnA
aero의 이미지

글쓴이: aero / 작성시간: 화, 2009/08/25 - 9:36오후

다양한 방법이 있겠지만 split ( http://p3rl.org/split ) 함수와 정규식(g modifier)를 써서하는 방법
.
.
.
.

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
 
my $str = "aaa/5rt\tbbb/er3\tccc/54bT\ttrt/34df45\tkdk/343 qqq/342\tccc/54bT\ttrt/34df45";
my @array = split /\t+/, $str;
print Dumper @array;

결과 - Data::Dumper 모듈로 배열 덤프

$VAR1 = 'aaa/5rt';
$VAR2 = 'bbb/er3';
$VAR3 = 'ccc/54bT';
$VAR4 = 'trt/34df45';
$VAR5 = 'kdk/343 qqq/342';
$VAR6 = 'ccc/54bT';
$VAR7 = 'trt/34df45';

코드보기: http://codepad.org/PXrQ7rXv

정규식 g modifier를 사용하는 방법

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
 
my $str = "aaa/5rt\tbbb/er3\tccc/54bT\ttrt/34df45\tkdk/343 qqq/342\tccc/54bT\ttrt/34df45";
my @array = $str =~ m/[^\t]+/g;
print Dumper @array;

코드보기: http://codepad.org/kYrSzjbW

eventia의 이미지

글쓴이: eventia / 작성시간: 금, 2009/09/18 - 5:05오후

잘 아는 사람에게는 별것 아닌걸텐데, 저는 이걸로 밤을 꼬박 새면서 고생했습니다. ㅜ.ㅜ

댓글 달기

텍스트 포맷에 대한 자세한 정보

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