正規表現についての質問です。 -正規表現につての質問です。今テキストフ-

正規表現について

正規表現につての質問です。今テキストファイルに下記のような漢字と数字が並んでいます。そこから、漢字一文字だけの行を抜き出してきたいのですが、うまくいきません。PerlとCygwinを使用しています。よろしくお願いします。人584504122 情報542701982 商品510342870 日414551872 方347990908 者347069359 中339925319 表示330177395 的324961911 私323727263 検索291502623 見ル285226619 場合275698771 一256241900 利用253752129 年240881734 時239273060 前228762989 店225241510 登録224560617 　　・　　・　　　・プログラム中身 #! /usr/bin/perl -w #テキストから指定した単語などとマッチすると、 #その単語を含んだ文を抜き出してくる。 while(<>){ s/　+//g; s/\s+//g; if(/^([亜-煕]|[一-龠]){1}[0-9]*/){ print; print "\n"; } }

正規表現で

正規表現で $ruby = "昨日の天気（てんき）は雨だったが、今日は快晴（かいせい）だ。明日の天気は曇りの可能\性（かのうせい）が高い"; $ruby =~ s/([亜-煕]|[一-龠])（([^）]*)）/<ruby><rb>$1<\/rb><rp>（<\/rp><rt>$2<\/rt><rp>）<\/rp><\/ruby>/g; としたら実行結果がこうなりました。昨日の天気（てんき）は雨だったが、今日は快・ruby>ー（かいせい）だ。明日の天気は曇りの可能・ruby>ォ（かのうせい）が高いどうすればよろしいですか？

正規表現について

いつもお世話になっております。 perlの正規表現で分からない事があります。ご存知の方がいらっしゃれば、アドバイスを頂けますようよろしくお願い致します。 (質問内容) 以下のようなプログラムを実行した場合、matchが出力されてしまいます。 $aには、「、IS」を設定しているので、「真」と扱われないと思うのですが、何故、matchが出力されるのでしょうか？また、「偽」として処理をいしたい場合、どのようにすればよろしいのでしょうか？ #!/usr/bin/perl $a = "、IS"; $b = "AIS"; if ($a =~ $b){ print "match\n"; } else{ print "not match\n"; }

正規表現の書き方に困っております。

あるSQLのダンプを変換するプログラムをPerlで書いているのですが、うまく正規表現が書けなくて困っております。データの途中に,が有ると、うまくいきません。 ''の中に囲まれた,は無視するという正規表現を書きたいのです。また、'''B'も正しく処理できれば、完璧です。 #!/usr/bin/perl use strict; use warnings; #my $a = qq{'A','B',1}; --> うまくいく　 ['A']['B'][1] #my $a = qq{'A,','B',1}; --> うまくいかない ['A] ['] ['] my $a = qq{',','''B',1}; --> もっとうまくいかない ['][']['] if($a =~ /(.+?),(.+?),(.+?)/){ print "[$1]\n"; print "[$2]\n"; print "[$3]\n"; }else{ print "ERR!\n"; } exit; __END__

正規表現での$1や$2の使用方法

正規表現の置き換え文字列部分で使用できる$1や$2の使用方法を教えてください！以下のソース１のようにs///gの置き換え文字列部分に$1や$2を直接記述すれば、１つ目と２つ目のマッチ部分で置換が行われるのは確認しました。しかし、ソース２のように置き換え文字列部分を変数に代入したのち、使用すると、正しく置換が行われません。 $1や$2を含んだ置き換え文字列を変数に持っている状態で、ソース１と同じ結果を得るにはどうしたらよいか、ご存知でしたら教えて下さい。 ############################## # ソース１ ############################## #!/usr/bin/perl $data = '1234567'; $ptn = '(\d{3})(\d{4})'; $data =~ s/$ptn/$1-$2/g; ############################## ↓ $dataは123-4567となる。 ############################## # ソース２ ############################## #!/usr/bin/perl $data = '1234567'; $ptn = '(\d{3})(\d{4})'; $str = "$1-$2"; $data =~ s/$ptn/$str/g; ############################## ↓ $dataは-となる。

正規表現が読めない

諸般の事情でperlスクリプトに手を入れることになりました。 perlについてはまったくの素人であることに加えて、正規表現が読めません。お恥ずかしいのですが、下記を読み下していただけないでしょうか。 (変数のリスト) = map{/^"(.*)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_} ($tmp =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g); $tmpはカンマ区切りのテキストです。

use encodingによって正規表現の結果が変わる？

お世話になります。 webシステムで、画面入力値のチェックをperlで行っているのですが、今回、perlのバージョンアップ対応を行っており、ソース修正をしたところ、以下のような現象に悩まされて困っております。（本当のソースはもっと長いのですが、以下の現象により入力チェックが正常に動作しないという点までは突き止めました。）バージョン perl v5.8.0 os Red Hat Linux release 9 現象 use encodingが指定されていると、正規表現の$が効かないようです。ソースと実行結果１ #!/usr/bin/perl #use encoding "euc-jp"; if ('apple' =~ /e$/) { print ("match\n"); } else { print ("unmatch\n"); } このときは match と表示されます。ソースと実行結果２ #!/usr/bin/perl use encoding "euc-jp"; if ('apple' =~ /e$/) { print ("match\n"); } else { print ("unmatch\n"); } このときは、unmatch と表示されます。対処方法のヒントだけでも頂けると助かります。（他の質問を検索してみましたが、同様なものを見つけることができませんでした。）もしかして、perlのバグなのでしょうか？

#!/usr/local/bin/perlで命令が出せません。

プログラミングのド素人で、独学でwindows上でcygwinを使っている者から質問させていただきます。「#!/usr/local/bin/perl」というコマンドをプログラムの先頭に書いて、[ファイル名]を入力してcygwinで命令をしたところ、命令が実行できず、「commond not found」と出てしまいました。そこで、ネット上で、いろいろ調べて、試してみたのですが、どうしても、解決できません。どなたか、アドバイスをいただけないでしょうか？ちなみに、perl [ファイル名]では、命令を実行することができます。「type -a perl」というコマンドを入力すると、「/cygdrive/c/Perl/bin/perl」というのがでてきたので、「#!/cygdrive/c/Perl/bin/perl」というコマンドを書いても上手くいきませんでした。ちなみに、私が書いたプログラムは、以下のようなものです。 #!/cygdrive/c/Perl/bin/perl　(あるいは#!/usr/local/bin/perl) # hello -- 挨拶のプログラム print ("hello");

正規表現でのエラー

検索システムを作ろうと思っています。テキストファイル(このソースではgreetings.txtです。)の中にある文章をキーボード入力で１文字でもヒットすれば抜き取って表示させたいのですが、以下のソースをコマンドプロンプトで実験したところ「Ｑ、Ｙ，Ｓ，Ｍ、と記号」で検索すると全ての文章がヒットしてしまいます。他の文字では問題無くヒットするのですが…。perlを始めてばかりでまだまだわからないことだらけです。いちおう本やネットで検索したんですがさっぱりわかりません。どなたかどうかお力を貸していただけませんか？ #!C:\Perl\bin\perl $kensaku = <>; $ans = eval $kensaku; open(IN, "greetings.txt"); while ($line = <IN>){ if($line =~ /$ans/i){ print "$line"; } }

正規表現の\Gの使い方

正規表現の\Gの使い方で質問です。ものの本によると、\Gをつけるとパターンマッチは前回の処理の続きから行われるとのこと。すると以下のようなコードなら、 ta tb tc td te となるべきと思われます。ところが実際は ta ta ta ta ta 明らかに\Gは無視されて、毎回$testの先頭から処理が行われています。どこに間違いがあるのでしょうか。 #! c:/perl/bin/perl $test='tatbtctdtetftg'; for($i=0;$i<5;$i++) { $test=~/(\Gt.)/; print $1."\n"; }

CGI設置時に500エラーになります

CGIを設置しようとしたところ、500 Internal Server Error になります。共用サーバーIDを使用しています。 CGIファイルは「cgi-bin」の中に入れています。たとえばこんな簡単なCGIでテストしたのですが、500 Internal Server Errorになってしまいます。 ↓ #!/usr/local/bin/perl print "Content-type: text/html \n\n"; print "Hello"; #!/usr/local/bin/perlを #!/usr/bin/perlにしても結果は同じです。（サーバーの指定は#!/usr/local/bin/perl）パーミッションは755にしています（705に変えてもダメでした）。 CGIファイルの改行コードはLFにしており、テキスト（ASCII）モードでアップロードしています。それでも500　Internet Server Errorになります。サーバーではエラーログが見られないのでみなさんにお聞きしたいのですが、他にどんな原因が考えられるでしょうか？

計算プログラム

perlで計算を行うプログラムをつくっているのですが、まず、 #! /usr/bin/perl # calc →電卓のプログラムです。コマンドラインに calc 計算式　と入力してください。 $ARGV[0]=~ s/x/*/g; #xをアスタリスクに変換します。 $x=eval($ARGV[0]); print "$x\n"; というものを書いたのですが、コマンドラインで、 calc　計算式とかいたのですが、コマンドがみつかりません。とでます。ちゃんとwhich perl で調べたら/usr/bin/perl とでるのですが、、、あと、計算式に()がつかえません。だからcosの計算を cos 0.5 というようにするのですが、１が返ってきます。何をうっても 1と返ってきます。このperlは学校にリモートログインで入って使っています。 Linuxのバージョンは7．2です。お願いします。

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> とでてきました。これはちゃんと動いているのでは？？何か勘違いしていますか？お気づきの点を教えてください。よろしくお願いいたします。

CGI勉強中（初心者です）

#!/usr/bin/perl print "content-type:text/html\n\n"; print "<HTML>\n"; print "<head><title>CGI</title></head>\n"; print "<BODY>\n"; print "<H1><FONT COLOR=\"#FF0000\">こんにちは</FONT></H1>\n"; print "</BODY>\n"; print "</HTML>\n"; というCGIつくりました。プロバイダの説明には Perlの場所 /usr/bin/perl または /usr/local/bin/perl となっていますが、どこにどう置いて（ホームディレクトリでしょうか？）、どうやって起動させてよいのかさっぱりわかりません。ご教授ください。

perl cgiで正規表現が無限にマッチする

perl でcgiを作っています。フォームから受け取ったテキストから、正規表現を用いて、データを切り出そうと思っています。以下のようなコードを書くと、マッチするのは一か所だけのはずなのに、無限回数マッチしてprintしつづけます。なにが間違っているのでしょうか。ご指導ください。 my $text = $in_data{'data_text'}; #フォームから受け取る $text =~ tr/+/ /; $text =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg; # invalidation $text =~ s/[<>"'&\r\n]//g; $text =~ s/&/&/g; $text =~ s/</</g; $text =~ s/>/>/g; $text =~ s/"/"/g; $text =~ s/'/'/g; $text =~ s/\r\n/<br>/g; $text =~ s/\n/<br>/g; $text =~ s/\r/<br>/g; while ( $text =~ /Line(\d{1}):長さ:(\S+) km/){ print "Line$1: $2<br>"; }

正規表現について２

すみません、前回「正規表現について」でお世話になりました者です。前回の分は解決したのですが、それに関連してもう少し教えてください。 data.txt---------------------------------------- aaabbbccc aaadddccc aaaeeeccc ------------------------------------------------ test.pl----------------------------------------- #!C:\Perl\bin\perl use CGI; my $q = CGI->new; $q->charset('Shift_JIS'); print $q->header(-type => "text/html"); my $line=0; open(IN,"<data.txt"); open(OUT,">output.txt"); while(<IN>){ if ($line++==0){ $output1="$1" if/aaa(.*?)ccc/;} s/aaa(.*)ccc/$1/ if (?aaa(.*)ccc?); print OUT; } close(OUT); close(IN); print $output1; ------------------------------------------------ とすることで、得られたい結果である、 output.txt-------------------------------------- bbb aaadddccc aaaeeeccc ------------------------------------------------ IEでの表示-------------------------------------- bbb ------------------------------------------------ となりました。そこで今回教えていただきたいのは、 data.txt---------------------------------------- ＜空行＞ aaabbbccc aaadddccc aaaeeeccc ------------------------------------------------ というようにdata.txtのはじめが空行の場合にも、上記と同じような結果を得たいです。output.txtのはじめは空行になっても構いません。得られる文字として、上と同じ結果がほしいです。どうしたらよいでしょうか？よろしくお願いします。

テキストファイルに「今日の天気（てんき）は晴れ」という文章が書かれてい

テキストファイルに「今日の天気（てんき）は晴れ」という文章が書かれていたとします。これを open(IN,"<log.txt"); flock(IN,1); @log=<IN>; foreach(@log){ print "$_"; } というプログラムで開いたとき、「$_」に代入されている「今日の天気（てんき）は晴れ」の「天気（てんき）」の部分を「<ruby><rb>天気</rb><rp>（</rp><rt>てんき</rt><rp>）</rp></ruby>」に置換したいのですが、どうしたらよいのでしょうか？「天気」の方は「s/([亜-煕]|[一-龠])/$1/g;」で認識するんですが、「（てんき）」はどうすればいいのか分かりません。

TABを表示させる方法

以前のテキストファイルのhtmlタグ<>を文字として表示されるに続いての質問ですが、 #!/usr/bin/perl main:{ $file = 'use1.txt'; print "Content-type: text/html\n\n"; print "<HTML><BODY>\n"; print "<TITLE>表\示</TITLE>\n"; open( FH, $file) or die "Can't open"; foreach( <FH> ){ $_ =~ s/</</g; $_ =~ s/>/>/g; print $_ ."<br>"; } close(FH); print "</BODY></HTML>\n"; } 表示するのにTABが抜けて、全て左詰めという感じになります。 TABを表示させるにはどうしたら宜しいのでしょうか？よろしくお願いします。

プログラム名でプログラムが実行できない

#!/usr/bin/perl # calc --計算式 print ("3 * 3 = "); print (3 * 2 ); print ("\n"); #改行上記のような簡単なプログラムを作ってみました。ところが、２段目にある「calc」と入力しても「can not found」と出て実行してくれません。保存したファイル名で「perl ファイル名」だときちんと実行してくれます。どこがおかしいのでしょうか？やってみた事は・which perl →/usr/bin/perl ・「chmod 775　ファイル名」　　です。以上、よろしくお願いします。

Encode と encoding の同時使用で ISO-2022-JP に encode できない

CentOS を 5.1 から 5.2 にアップデートした頃から PerlCGI からのメール送信が出来なくなって、調べていたら「ISO-2022-JP への encode がおかいぞ問題」に辿り着きました。以下のコードで、euc-jp が吐かれてしまいます。 #! /usr/bin/perl -w use encoding('UTF8'); use Encode; binmode(STDOUT); my $text = "＜全角文字ですよぉ。＞"; print encode('ISO-2022-JP', $text), "\n"; 以下のいずれかで正常に jisコードを吐く様になるのですが、こんなものなんでしょうか？ 1 「use encoding('UTF8');」を「use utf8;」に替える 2 print の直前に "no encoding;" を入れる CentOS 5.1 では多分正常に ISO-2022-JP への変換ができていたのだと思います。私の使用するバージョンの Cygwin の Perl でも正常です。問題のある CentOS5.2 と問題の無い Cygwin版で、関係しそうなバージョンの違いはありません。 CentOS 5.2: Perl 5.008008 Encode 2.12 Encode::JP 2.01 encoding 2.02 Cygwin: CYGWIN_NT-5.1 **** 1.5.25(0.156/4/2) 2008-04-17 12:11 i686 Cygwin Perl 5.008008 Encode 2.12 Encode::JP 2.01 encoding 2.02 できれば、すでに動いているCGIの use encoding('UTF8'); を直す事なく動く様にしたいのです。

正規表現についての質問です。

みんなの回答

関連するQ&A

正規表現について

正規表現で

正規表現について

正規表現の書き方に困っております。

正規表現での$1や$2の使用方法

正規表現が読めない

use encodingによって正規表現の結果が変わる？

#!/usr/local/bin/perlで命令が出せません。

正規表現でのエラー

正規表現の\Gの使い方

CGI設置時に500エラーになります

計算プログラム

perlのcgiが動かない・・・

CGI勉強中（初心者です）

perl cgiで正規表現が無限にマッチする

正規表現について２

テキストファイルに「今日の天気（てんき）は晴れ」という文章が書かれてい

TABを表示させる方法

プログラム名でプログラムが実行できない

Encode と encoding の同時使用で ISO-2022-JP に encode できない

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう