プログラミング学習の記録 581.2 8章(正規表現によるマッチ)の練習問題4 『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9) の8章(正規表現によるマッチ), 8.10(練習問題)、4を解いてみる。

 

4.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/perl
use strict;
use warnings;

while(<>){
  chomp;
  if(/\b(?<word>\w*a)\b/){
    print "Matched: |$`<$&>$'|\n";
    print "'word' contains '$+{word}'\n";
    } else {
    print "No match: |$_|\n";
    }
}

入出力結果(Ternimal)

$ ./my_program wilma Matched: |<wilma>| 'word' contains 'wilma' barney No match: |barney| Mar. Wilma Flintstone Matched: |Mar. <Wilma> Flintstone| 'word' contains 'Wilma' wilma&fred Matched: |<wilma>&fred| 'word' contains 'wilma'

wilma, Mrs. Wilma Flintstone, wilma&fredにはマッチして、barneyにはマッチしない。

サンプルテキストを入力として与えてみる。

入出力結果(Ternimal)

$ ./my_program sample_text |o match: |this story is rendered all in lowercase so that you can search |o match: |for fred and barney in lowercase, as we usually do. some lines |atched: |mention <a> name like fred more than once so that you can search 'word' contains 'a' |o match: |for repeated words, for example. (don't actually try to read this |o match: |story, which is terribly inane, or you'll be disappointed. we |o match: |promise.) |o match: | |o match: | |o match: | |o match: |- - - - - - - - - - - - - - - - - - - - - - - - - - - - |o match: | |o match: |one evening, fred and barney were getting ready to go bowling. |atched: |<wilma> saw this and said to betty, "you should ask barney to take 'word' contains 'wilma' |o match: |you out to the hard rock cafe for pterodactyl burgers." |o match: | |o match: |betty agreed. "barney and fred never think about us. we should |atched: |make it <a> double date." 'word' contains 'a' |o match: | |o match: |"do you want to bring pebbles and bamm-bamm along?" |o match: | |o match: |"sure," said betty. "they always like to play skee-ball." |o match: | |atched: |so <wilma> found fred and told him, "hey, fred, you've been going 'word' contains 'wilma' |o match: |out bowling every night this week. betty and i want to go to the |o match: |hard rock cafe for pterodactyl burgers." |o match: | |atched: |"but <wilma>," said fred, "barney and i need to go tonight. this is 'word' contains 'wilma' |o match: |the night that our league is pitted against the gravel pit |o match: |strikers. how about if i take you out on monday night?" |o match: | |atched: |that wasn't good enough for <wilma>. "fred flintstone, if you think 'word' contains 'wilma' |o match: |i'm going to let you leave me at home with pebbles while you go |atched: |bowling for the tenth night in <a> row, you've got another think 'word' contains 'a' |o match: |coming. get cleaned up, because we're going." |o match: | |o match: |- |o match: | |o match: |meanwhile, at the rubbles' house, barney was having the same |o match: |discussion with betty. "i can't say no to you betty. but fred |o match: |said that if we can beat the gravel pit strikers tonight, we'll |atched: |qualify for the final round next month. the grand prize is <a> 'word' contains 'a' |o match: |romantic vacation on the rock of gibraltar. i want to win that |o match: |for you." |o match: | |o match: |"oh, barney! you are so sweet. of course you can go bowling. do |o match: |you really think you'll win?" |o match: | |o match: |"well, this is why fred and i have been practicing all week. but |atched: |you can't tell <wilma> what's going on, because fred made me 'word' contains 'wilma' |o match: |promise that he could surprise her." |o match: | |atched: |"what are we going to do for tonight?" betty asked. "<wilma> wants 'word' contains 'wilma' |o match: |us all to go out to the hard rock cafe. what time do you have to |o match: |be at the alley?" |o match: | |o match: |barney checked the time. "we aren't scheduled to start until half |o match: |past 8." |o match: | |atched: |"that's it, then," said betty. i'll create <a> distraction at about 'word' contains 'a' |o match: |8. the alley is just around the corner from the restaurant, so |o match: |you and fred can sneak over there." |o match: | |o match: |"i'll call fred and tell him our plan." |o match: | |o match: |- |o match: | |atched: |fred had come up with <a> plan of his own. with his bowling ball in 'word' contains 'a' |o match: |hand, he tiptoed towards the door, keeping an eye on the door to |atched: |the bathroom to see if <wilma> was coming. whoops! he tripped over 'word' contains 'wilma' |o match: |dino's tail. "arf arf arf" yelped the dogosaurus. "what was |atched: |that?" called <wilma> from the bathroom. 'word' contains 'wilma' |o match: | |o match: |"nothing, nothing, dear," said fred, hurriedly hiding the bowling |atched: |ball behind his back. "i think dino just saw <a> mouse." 'word' contains 'a' |o match: | |atched: |"<a> mouse! well, i should hope you'll catch it, we can't have any 'word' contains 'a' |o match: |mice around pebbles." |o match: | |o match: |"no problem. i've caught it now," lied fred. "i'll just take it |o match: |outside and release it." |o match: | |atched: |as he headed again toward the door, <wilma> emerged from the 'word' contains 'wilma' |o match: |bathroom. "what color is it?" she asked. |o match: | |o match: |"uhm, black?" fred responded, holding the bowling ball behind his |o match: |back as he walked backwards towards the door. |o match: | |atched: |"betty saw <a> black mouse last week. i wonder whether this is a 'word' contains 'a' |o match: |relative. let me see it." |o match: | |atched: |"no, this one is more of <a> grey mouse, now that i think of it. no 'word' contains 'a' |o match: |possible relation. no reason for you to look at the mouse." |o match: | |o match: |"fred flintstone, you let me see that mouse this minute!" cried |atched: |<wilma>. 'word' contains 'wilma' |o match: | |atched: |the telephone rang. "you get that, <wilma>," said fred. "i'll be 'word' contains 'wilma' |atched: |back in <a> moment." he ducked outside. 'word' contains 'a' |o match: | |atched: |<wilma> answered the phone. "hello?" she asked. 'word' contains 'wilma' |o match: | |o match: |"uhm, yes." said barney on the other end of the line, disguising |o match: |his voice. "this is mister, uh, rarnard bubble calling from the |o match: |department of, uhm, mineral, uhm, transportation. i'm calling for |o match: |mister fred flintstone. is mister fred flintstone available to |o match: |come to the telephone?" |o match: | |o match: |at that moment, fred rushed back into the house, having left the |atched: |bowling ball in the car. "it's for you, fred," said <wilma>. 'word' contains 'wilma' |o match: |"mister bubble from the department of mineral transportation." |o match: | |o match: |"hello," fred said into the phone, not understanding. |o match: | |atched: |"<heya>, fred," said barney. "betty and i have figured out what to 'word' contains 'heya' |atched: |do. she'll distract <wilma>, and you and i can sneak over to the 'word' contains 'wilma' |o match: |bowling alley." |o match: | |atched: |"yes, yes," said fred. <wilma> stood by, curious about this 'word' contains 'wilma' |o match: |conversation. |o match: | |atched: |barney continued. "you and <wilma> go ahead to the restaurant. 'word' contains 'wilma' |o match: |after you're gone, betty and i will get your bowling ball and |o match: |bring it with us. where do you keep it?" |o match: | |atched: |<wilma> was getting more curious. fred said, "well, that mineral, i 'word' contains 'wilma' |o match: |don't think i have any of it around the house right now." |o match: | |atched: |"but fred," said barney, "it's <a> bowling ball, not a mineral." 'word' contains 'a' |o match: | |o match: |"i'm sure i can't help you with that." |o match: | |o match: |"fred, where do you keep your bowling ball? is it in the garage?" |o match: | |o match: |"no, none in the garage, i'm sure of it." |o match: | |atched: |<wilma> interrupted him. "fred, give me the phone. i'll take care 'word' contains 'wilma' |o match: |of this while you shave." |o match: | |o match: |she pulled the phone away from fred in time to hear barney say, |o match: |"no, bamm-bamm, don't play with daddy's bowling ball!" |o match: | |o match: |"barney, is that you?" she asked the phone. |o match: | |o match: |"yep. i mean," said barney, hastily disguising his voice again, |atched: |"hello? hello? i think we have <a> bad connection. i think i just 'word' contains 'a' |o match: |heard someone named barney on the line. but there is no one named |o match: |barney here. no barney at all. put that bowling ball down, |o match: |bamm-bamm!" |o match: | No match: |end of story|

またも出力が変な形に。。そろそろ原因が分かるようにならないと！

ファイルの用意が必要な場合はO'Reilly Japan - 初めてのPerl 第5版の関連ファイルのプログラム例に含まれているものを使用しています。