- 締切済み
Perlのキャプチャ
プログラム #!/usr/bin/perl my $str = "abc,def,ghi"; ($a,$b,$c) = $str =~ /(.*),(.*),(.*)/; print $a,"\n"; print $b,"\n"; print $c,"\n"; 実行結果 abc def ghi このようなプログラムで ($a,$b,$c) = $str =~ /(.*),(.*),(.*)/;は それぞれ$a,$b,$cにabc，def，ghiが入ります． キャプチャしたすべてを変数に入れるならこの方法ですが， defだけが欲しいのに変数を３つ用意する必要がないと思います． 間違った表記ですが， ($b) = $str =~ /(.*),(.*),(.*)/$2/; ２つ目にキャプチャした$2が変数$bに入るような表記は出来ないのでしょうか？
- garusu
- お礼率18% (50/276)
- Perl
- 回答数3
- ありがとう数1
- みんなの回答 （3）
- 専門家の回答
みんなの回答
- sakusaker7
- ベストアンサー率62% (800/1280)
($b) = $str =~ /(.*),(.*),(.*)/$2/; ↓ (undef, $b, undef) = $str =~ /(.*),(.*),(.*)/$2/; とか。 まあ素直にキャプチャしないカッコを使うなり、別のやり方をするなり したほうが良いとは思いますけど。
関連するQ&A
- perlのプログラミングで悩んでいます
open(IN,"<data/list.cgi"); @list = <IN>; close(IN); このようなプログラムで、 'abc','def','ghi' とだけ書かれた「list.cgi」をdataディレクトリに用意しています。 そして、print "$list[0]";で読み込むと、 'abc','def','ghi' と全て表示されてしまいます。 原因がわからないので、質問しました。 お願いします。
- 締切済み
- Perl
- 正規表現でのパイプ（or）を減らしたいのですが
いつもお世話になっています。 正規表現のパイプ（|）は非常に遅くなるらしいので、[]内に並べるようにプログラムを修正しようと思っています。それで、 /a|b|c/ ---> [abc] のような方法は、よく紹介されているのですが、a,b,cが単独文字ではなく、単語になっているような場合、 /abc|def|ghi/ ---> [(abc)(def)(ghi)] だと多分ダメですよね（今実行環境が無く確認できません）。 それで、各々の単語を $a = 'abc'; $d = 'def'; $g = 'ghi'; のようにあらかじめ定義しておいて、 /$a|$d|$g/ ---> [$a$d$g] というように書き換えると、うまくいくのでしょうか？ やり方が間違っていましたら、ご指摘いただきたく、よろしくお願いします。
- ベストアンサー
- Perl
- PHPで、フォルダーにあるファイルを配列に取り込みたい
例えば次の様なフォルダーとファイルがあるとき \abc\a.txt \abc\b.doc \abc\def\b.doc \abc\ghi\a.txt \abc\ghi\b.doc 次の様な結果を得たいのですが、どうすれば良いでしょうか？ $dir[/abc/a.txt] = "/abc/a.txt" $dir[/abc/b.doc] = "/abc/b.doc" $dir[/abc/def/b.doc] = "/abc/def/b.doc" $dir[/abc/ghi/a.txt] = "/abc/ghi/a.txt" $dir[/abc/ghi/b.doc] = "/abc/ghi/b.doc" 再帰関数でできそうに思うのですが、いくら考えても分かりません。 $path = "\abc"; function getfiles($path) {} print_r(getfiles($path)); みたいにして取り出せると助かります。 すみませんが教えてください。
- ベストアンサー
- PHP
- データをブロックごとに並べ替えるスクリプト
データをブロックごとに移動して並べ替えたいのですが、 うまくいくスクリプトが書けず困っています。 APR_A----- abc 1 def 2 APR_B----- abc 3 def 4 APR_C----- abc 5 def 6 APR_A----- ghi 1 jkl 2 mno 3 APR_B----- ghi 4 jkl 5 mno 6 APR_C----- ghi 7 jkl 8 mno 9 のようなフォーマットのデータがあります。 これを以下のようにフォーマットを変えたいのですが、 awkを使ってどのようにスクリプトを書いたらよいでしょうか。 元データの中で、区切りの行は常にAPR_で始まっています。 APR_で始まる行に来たら次の列に移って2列目のみprint というのを繰り返し、APR_Aに戻ってきたら、 1列目（abc,defなど）、2列目ともprintして同様に繰り返す。 各ブロックの行数はまちまちです。（最初のブロックのように2行のブロックもあれば2番目のブロックのように3行のもあります） rowtitle APR_A APR_B APR_C abc 1 3 5 def 2 4 6 ghi 1 4 7 jkl 2 5 8 mno 3 6 9 分かりにくい文章ですが、理解していただけることを願っています。 よろしくお願いします。
- 締切済み
- その他([技術者向] コンピューター)
- perlのcgiが動かない・・・
cgiを組もうと思い、まずは簡単なもので試そうと思ったのですが、 うまくいかず困っています。 ↓プログラムは、こんな感じです。 ファイル名：index.cgi #!/usr/bin/perl print "<html>"; print "<body>"; print "abc"; print "</body>"; print "</html>"; ＜やってみたこと＞ ・Perlのパス「#!/usr/bin/perl」 が間違っていないか？ which perl で /usr/bin/perl とでます。 ・Apache の設定が正しく行なわれているか？ http://localhost でindex.htmlがきちんと表示できています。 ・「hello.cgi」 の設置場所を間違っていないか？ プログラムソースが出るということは、 間違っていないのではないでしょうか？ ・ためしに実行してみた TELNETで ./index.cgi <html><body>abc</body></html> とでてきました。 これはちゃんと動いているのでは？？ 何か勘違いしていますか？ お気づきの点を教えてください。よろしくお願いいたします。
- ベストアンサー
- Perl
- Makefileの書き方
正しいかどうかわかりませんが、インターネットである程度検索してから以下のようなJavaのコンパイル用Makefileを作成しました。なお、全てのクラスのパッケージは package abc.def.ghi; です。 ---Makefile--- .SUFFIXES: .java .class JC = /usr/bin/javac PATH = ./abc/def/ghi/ CLASSPATH = -classpath /Users/macintosh/ TARGET1 = Prog1 TARGET2 = Prog2 TARGET3 = Prog3 list: $(PATH)$(TARGET1).class \ $(PATH)$(TARGET2).class \ $(PATH)$(TARGET3).class .java.class: $(JC) $(CLASSPATH) $< clean: /bin/rm -f $(PATH)*.class これで/Users/macintoshディレクトリからmakeを実行すると、 /usr/bin/javac -classpath /Users/macintosh/ abc/def/ghi/Prog1.java /usr/bin/javac -classpath /Users/macintosh/ abc/def/ghi/Prog2.java /usr/bin/javac -classpath /Users/macintosh/ abc/def/ghi/Prog3.java が実行され、無事にクラスファイルが３つ生成されます。-classpathによりクラスパスも同時に設定されるので、あとはどこのディレクトリからでも $java abc.def.ghi.Prog1 でプログラムが実行されると思ったのですが/Users/macintosh/以外のディレクトリから実行すると Exception in thread "main" java.lang.NoClassDefFoundError: というエラーになります。何がおかしいのでしょうか。あと、Java用のMakefileで改善したところがあれば教えて下さい。
- ベストアンサー
- Java
- perlがうごきません
<html> <head> <title>form3</title> </head> <body> <form action="form3.cgi" method="post" name="form3"> <input type="text"name="form3"> <input type="submit"value="送信"> </form> </body> </html> :::::::::::：：：：：：：：：：：：：：：：：：：： #! /usr/bin/perl if($ENV{"REQUEST_METHOD"} eq "GET"){ $str=$ENV{QUERY_STRING"}; }else{ read(STDIN, $str, $ENV{"CONTENT_LENGTH"}); } $str=~ tr/+/ /; $str=~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("c", hex($1))/eg; foreach(split(/&/, $str)){ my ($key, $value)=split(/=/, $_); $data{$key}=$value; } print "Content-type:text/html\n"; print "\n"; print "<html>\n"; print "<head><title>form3</title></head>\n"; print "<body>$data{'form3'}</body>\n"; print "</html>\n"; exit; :::::::::::::::::：：：：：：：：：：：：：：： どうしてもうごきません。 どこかスクリプトがまちがっているのでしょうか。 パールのパスはあっています。
- ベストアンサー
- Perl
- Perlの文字列置換について
質問です。文字列の置換を行いたいのですが、まずはソースから・・・ use File::Basename; use File::Copy; use File::Find; use File::Path; my @filelist = (); $inputfile='C:\Users\test.txt'; $outputfile='C:\Users\test_new.txt'; open (IN, $inputfile) or die "$!"; open (OUT, ">$outputfile") or die "$!"; while(<IN>) { $str = $_; if ($str =~ /html:text/) { $str =~ s/html:text/s:textfield/g; $str =~ s/property/name/; $str =~ s/styleClass/cssClass/; elsif($str =~ /html:textarea/) { $str =~ s/html:textarea/s:textarea/g; $str =~ s/property/name/; $str =~ s/style/cssStyle/; $str =~ s/styleClass/cssClass/; } print OUT $str; } close (IN); close(OUT); sub wanted{ push(@filelist, $File::Find::dir."/$_") unless ($_ =~ /^\.$/); } Perlプログラムで下記のソースを一括置換します。 <html:text property="xxx" styleClass="yyy"> <html:textarea property="abc" styleClass="def" style="ghi"> 目標は以下のように置換したいです <s:textfield name="xxx" cssClass="yyy"> <s:textarea name="abc" cssClass="def" cssStyle="ghi"> しかし、上記のプログラムを実行すると <s:textfield name="xxx" cssClass="yyy"> <s:textfieldarea name="abc" cssClass="def" style="ghi"> となってしまいます。 どこをどう直せばよいのかわからないので誰か教えてください。 お願い致します！！
- ベストアンサー
- Perl
- Perl あっていますでしょうか？
" " と ' ' の相違は？ ""の内にある変数名は、その値に変換されます。 ''の内にあるものは、そのまま文字列として扱われます。 エスケープシーケンスは "" の内に記述した場合のみです。 $a="Hello"; 文字列Helloを変数$aに代入する。 $b="$a"; 変数$aを変数$bに代入する。 $c='$a'; $aという文字列を変数$cに代入する。 ""の内で""を使うことは出来ません。 ''の内で''も使うことは出来ません。 使うときはエスケープシーケンスを使います。 print "\"Hello\"\n"; 文字列"Hello"を表示させます。 print "'Hello'"; 'Hello'を表示させます。 ""の内で''又は''の内で""を使うことは出来ます。 $a="あいうえお"; 文字列 あいうえお を変数$aに代入する。 print "\n$a\n"; 改行して あいうえお表示して 改行する。 print '\n$a'; 文字列\n$aを表示する。 文字列の結合 . （ピリオド）を使って前後の文字列を連結することが可能です。 $a="Hello"." "."World"; 変数$aに文字列Helloと半角スペースとWorldをつないだものを代入します。 $a="c"x3; 変数$aに文字cを3回つないだものを代入します。 $a="A"; 文字Aを変数$aに代入する。 $b="B"; 文字Bを変数$bに代入する。 $c="C"; 文字Cを変数$cに代入する。 print $a.$bx3.$c; 文字Aと文字Bを3回結合したものと文字Cを表示する。 画面にはabbbcと表示されます。
- ベストアンサー
- Perl
