ベストアンサー

perlで正規表現(正の数)

2023/10/24 21:46

perlで正の数の数値を判定したいと思っています。 $testが0か1しか許容したくないので下記のように正規表現を作成しました。しかし、「-1」を$testに設定すると何故か下記のif文をスルーしてしまいます。どのようにすればよいでしょうか？ if($test !~ /[0-1]/) { # エラー }

unko347
お礼率44% (122/277)

Perl
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

_kappe_
ベストアンサー率68% (1581/2304)

2023/10/24 22:26 回答No.1

$testの内容として0または1の一文字だけを許可したいなら if ($test !~ /^[01]$/) { print "エラー\n"; } のようにしてください。

質問者

お礼 2023/10/24 22:53

ありがとうございます

関連するQ&A

Perl・正規表現が分かりません

Perlでプログラムを書く場合、ある文字列の文字数が5文字且つ、文字列の先頭に[0-5A]を必ず含み、そして残り4文字にも[0-5A]のみを必ず含む場合、Trueを表示。それ以外はErrを表示する。多分、全て、正規表現でできると思うのですが、分かりません。教えていただけないでしょうか？宜しくお願い致します。 $test = "0AAAA"; if(正規表現){ print "True"; }else{ print "Err"; } ↑結果：True $test = "aAAAA";の場合、結果：Err
Perlの正規表現

Perlの正規表現についての質問です。例） 899 YES Alt 0 0.000 pps 2.000 pps 4.000 pps 0 2 YES Alt 0 1.222 (space)-0.100 (space)3.000(space)0 103 NO Alt 0 3.333 % 0.000 % 0.000 % 0 　　　　　　　　　　　　　　 ^^^^^ =====抜粋======================================== if($_ = ~ / Alt+(\s+)+0+(\s+)+(\S+)+(\s+)+(\S+)+(\s+)+(\S+)+(\s+)+(\S+)+(\s+)+(\S+)+(\s+)+(\S+)+(\s+)+(\S+){ print OUT "\n$5,"; ================================================= 上記のような文字列があるとして"^^^^^"だけを抜き出したい場合の正規表現はどのようにすればよろしいのでしょうか？考えたif文では当たり前ですが2番目の（-0.100）が抜き出せません。また、検索できた順に抜き出し、出力したいので if文を二つ書くのは避けたいです。どなたか教示ください。宜しくお願い致します。
Perl正規表現わかりますか？

下記のPerl正規表現ですが、どんな意味か分かるでしょうか？ $var =~ s!/([^/]+|~(\.\.))/\.\./!/!g 参考書も読んでみたのですが分かりませんでした（セットされている文字列にどんなマッチング、置換をしているのでしょう）お分かりの方いれば、よろしくお願いします。
perlの正規表現について教えて下さい。

perlの正規表現について教えて下さい。【１】next if /^abc￥[1|2|3|4￥]/; 【２】next if /^abc￥[￥[1-4￥]￥]/; 例えばですが、 abc[1] abc[2] abc[3] abc[4] だった場合、next ifでスキップしたいと考えています。【１】の場合、成功しましたが、【２】だとスキップされませんでした。 abc[ ではじまり、その後ろが「１、２、３、４」のいずれかで、]で閉じる場合、スキップしたいと考えています。【1】の場合、現在は[４]までだけですが、これが、[1]から[１００]まであった場合, 1|2|3・・・99|100のように記述する事になってしまいますので困っております。
文字数の正規表現について

perlであるフォームから数字だけ(４桁）入力してもし４個以外の文字だったらエラー表示としたいのですが if($valueが４個の文字数でないとき){エラー} とした場合($valueが４個の文字数でないとき)の部分はどのように表現すれば良いでしょうか？
Perlの正規表現について

Perlの正規表現について質問です． ■質問 aaa bbb aaa bbb ccc "ddd" aaa bbb ccc "ddd eee" aaa bbb ccc ddd eee "fff ggg hhh iii" というような，文字列が書かれているファイルがあるとします． ※ダブルクォーテーションが無い行もあります． ※ダブルクォーテーション内のスペースの数は，行によってそれぞれ異なります．これを，ダブルクォーテーションの中にあるスペースだけアンダーバーに置換する場合の正規表現を教えて下さい．つまり，下記の出力にしたいです． aaa bbb aaa bbb ccc "ddd" aaa bbb ccc "ddd_eee" aaa bbb ccc ddd eee "fff_ggg_hhh_iii" ■条件 ※ちょっと古いPerlでも動くよう，ゼロ幅肯定/否定後読((?<),(!<))は使わないでください． ※単に実現するだけなら， # cat inputfile | print -pe 'sub f(){}(shift;s/ /_/;return $_;); s/(\".*\")/&f($1)/e;' みたいな感じで置換できそうですが，「正規表現だけで簡単に書けるかどうか」が知りたいのです(正規表現だけで実現出来る場合，そのアルゴリズムを知りたいです)．そのため，関数と/eオプションは使わないでください．
正規表現で@を使う場合は\@とするべきか@とするべきか悩んでいます。

正規表現で@を使う場合は\@とするべきか@とするべきか悩んでいます。両方とも構文エラーが起きないのでその時点で？ですが .は\.としないと正規表現ではドット文字を認識しないのはわかりますが、正規表現の@はどうすればよいのでしょうか？ Perl自体@も配列なので\@つけた方が・・・よろしくお願いいたします。 $x = "test@example.com"; if ( $x =~ /[^a-zA-Z0-9\.\-\_@]/) if ( $x =~ /[^a-zA-Z0-9\.\-\_\@]/)
正規表現について

いつもお世話になっております。以下の正規表現の記述の仕方が分からないのですが、ご存知の方教えて頂けますでしょうか？ (やりたいこと) 以下のような記述がある場合、value=の値が空の時は処理Aをしたいというif文を書きたいのですが書き方が分かりません。 if($orginal =~ /<option value=\"\"/){ 処理A } のようなif文を記述したのですが、 2行目の「テスト」も引っかかってしまいます。どのように記述すればよいのでしょうか？ <option value="" >選択してください</option> <option value="テスト" >テスト</option>
正規表現

正規表現で数値と半角記号（!#$%()~|-^@[;],./`{+*}_）が入っているというものを表現したいのですが、、、下記のような正規表現をすると、エラーになってしまいます。何かよい方法はありませんか？ ^[a-zA-Z0-9\-_!#$%()~|-^@[;],./`{+*}_]*$ 又、携帯電話のチェックをしたいのですが、１文字以上の文字列があってというような処理にしたいのですが、何かよい方法はないでしょうか？ ereg( "@docomo\.ne\.jp$", $email )
正規表現

変数$aのなかに変数$bが含まれていたらをperlの正規表現であらわすとどのようになるのでしょうか？if($a=~ /$b/)ではうまくいかないのですか？
正規表現で文字クラスの引き算

お世話になります。正規表現の文字クラスについてお聞きします。 0～6 の数字１字を [0-6] という風に指定しますが、 .NET 正規表現では、この中から 3～5 は除く、というようなとき、 [0-6-[3-5]] と言う風に書けるようですが、 Perl では書けないようです。（一応ラクダ本と perldoc perlre には当たりました） #! perl # regtest.pl -- 正規表現のテスト while(<DATA>) { chomp; print "$_ matches /[0-6-[3-5]/\n" if /[0-6-[3-4]/; } __DATA__ 0 1 2 3 4 5 6 7 8 9 のようなスクリプトを動かすと、 C:\test>regtest.pl 0 matches /[0-6-[3-5]/ 1 matches /[0-6-[3-5]/ 2 matches /[0-6-[3-5]/ 3 matches /[0-6-[3-5]/ 4 matches /[0-6-[3-5]/ 5 matches /[0-6-[3-5]/ 6 matches /[0-6-[3-5]/ のような結果が得られ、引き算が確かに聞いていません。 Perl と .NET 正規表現は互換ではないのでしょうか。また、Perl でも同じことが書けるでしょうか。よろしくご教示願います。
Perlの正規表現に関する質問です。

Perlの正規表現に関する質問です。下記を実行した場合、$1～・・・には下記のどの正規表現に該当する値が入るのでしょうか？ sub test{ my $text = shift; pos($$text) = undef; while ( $$text =~ m{ (\s*<) ( !-+ | !-+\s*(/|//)?\s*(.*?)\s*(/|//)?\s*-+ | (/)?([!a-z0-9\-]+)\s*((?:[a-z0-9\-]+\s*=\s*[\w\-/]+|[a-z0-9\-]+\s*=\s*".*?"|[a-z0-9\-]+\s*=\s*'.*?'|\s+[^<>]{2,})*)?\s*(/)? ) (>\s*) (.*?(?=(?:<!-+ | </?[a-z0-9\-!]+\s*(?:[a-z-]+\s*=\s*[\w\-/]+|[a-z0-9\-]+\s*=\s*".*?"|[a-z0-9\-]+\s*=\s*'.*?'|\s+[^>]{2,})*)\s*(/)?>?))? }sxgi ) { ・・・ }
正規表現でカンマを対象にする方法

フォームから入力された値をCSVにはき出しているため、「,」(カンマ)を禁止文字としたいのですが、正規表現で対象にすることは可能でしょうか？「.」(ピリオド)なら　if($TEST1 =~ /\./) とすればよいと思うのですが、、、　if($TEST1 =~ /\,/) ではダメですよね。正規表現で引っかけてアラートを出す予定なのですが、 if($TEST1 =~ /\,/){ print <<END; <script> alert(",(カンマ)を含んでいます"); </script> END &error; } 他のやり方で「,」(カンマ)を禁止文字にする方法でも構いません。また、入力フォームは８つあるのですが($TEST1～$TEST8)、まとめて「,」(カンマ)を禁止文字にすることはできますか？開発環境：WindowsXP(TeraTerm使用) サーバー：HP-UX perlバージョン：5.6.1 以上、よろしくお願いいたします。
正規表現時の#の意味についてご教授お願いします

お世話になります。 perlの正規表現で、下記の#の意味が分からないのですがどのような意味になるのでしょうか。 if m/^\s*#/; 宜しくお願い致します。
正規表現のチェックについてお聞きしたい事があります

正規表現のチェックについてお聞きしたい事があります DBデータを修正するのにテキストボックスから数値を入力して int型で受け取り、SQLを投げる処理を作成しているのですがこの入力された値が数値である事をチェックする場合正規表現を使って、数値以外である場合にはねる方法か Try～catch文を使って数値以外である場合にはExceptoinを受け取ってエラー処理を記述する方法か、どちらの方がより推奨されますか？
rubyの正規表現について質問です。

rubyの正規表現について質問です。 rubyを勉強中ですが、正規表現について質問させてください。以下のようなことをしたいのですが、どのような記述をすれば実現できるでしょうか？ (1)test → #test (2)test → test 「test」の場合は、「#」を加え、「#test」に置換したい「test」の場合は、そのまま「test」としたい。 if を続ければ可能だとは思いますが、一つの正規表現で(1)のケースだけを引っ掛けられればと思っています。正規表現でANDが使えればよいのですが、使えないようですし。。。お手数をおかけしますが、お力をよろしくお願いします。
正規表現が読めない

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

正規表現につての質問です。今テキストファイルに下記のような漢字と数字が並んでいます。そこから、漢字一文字だけの行を抜き出してきたいのですが、うまくいきません。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"; } }
perlの正規表現

はじめまして現在Perlでスクリプトを作成しています。やりたいことは・ユーザがコマンドラインより文字（ユーザID)を入力・その文字列が#getent passwdの結果にあるか無いかで処理を分けるです。 #getent passwd | grep hogehogeの結果は下記のとおりです。 hogehoge:x:1210:104:staff:/home/data/staff/hogehoge:/bin/bash これより先頭の[hogehoge]とユーザが入力したhogehogeが完全一致すれば問題ありません。正規表現を調べましたが文字列での一致はあるのですが引数での文字列が調べることが出来ませんでした。よろしくお願いします。 print "Enter User ID\n"; $id = <STDIN>; chomp($id); $cmd =`getent passwd | grep $id`; system($cmd); if ($cmd == ~ /^$id/) { print "There is not ID\n"; } else { print "Your ID is there\n"; }
phpの正規表現について

phpの正規表現についてです。よく入力されたメール・パスワードを判定するのに正規表現で判定させますが、今回の指定する条件は… ・半角英数、0～9の組み合わせ・使用禁止文字は \ ' @ [ ] の５つ・入力は８文字以内例 if(ereg("^[0-9a-z\!\"\#\$\%\&\=\-\~\|\{\}\;\:\+\*\,\.\/\<\>\?\_]{1,8}$", $pw)){ 記号の意味でよくわからないのがあるのですが、 {　}は文字数を指定するものでよろしいのでしょうか？ {1,8} は1～8文字までという意味？ \が入ると認証が通ってしまってい、困っています。ユーザーの入力　　　　MySQLの取得結果例 123\　　　　　　　　→　データが入らない　　\123　　　　　　　　→　123 　　\\123 　　　　　　　→　\123 　　123\123　　　　　　→　123123 　　\\　　　　　　　　　 →　\ といった不具合になってしまい、MySQL側でも入力されたデータと異なったデータが入ってしまいます。\が入っても認証されないようにするにはどうすればいいんでしょうか？正規表現の参考にしたサイトは http://itbtech.itboost.co.jp/php/php_06.php　です。アドバイスよろしくお願いいたします。

perlで正規表現(正の数)

質問者が選んだベストアンサー

お礼 2023/10/24 22:53

関連するQ&A

Perl・正規表現が分かりません

Perlの正規表現

Perl正規表現わかりますか？

perlの正規表現について教えて下さい。

文字数の正規表現について

Perlの正規表現について

正規表現で@を使う場合は\@とするべきか@とするべきか悩んでいます。

正規表現について

正規表現

正規表現

正規表現で文字クラスの引き算

Perlの正規表現に関する質問です。

正規表現でカンマを対象にする方法

正規表現時の#の意味についてご教授お願いします

正規表現のチェックについてお聞きしたい事があります

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

正規表現が読めない

正規表現について

perlの正規表現

phpの正規表現について

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

perlで正規表現(正の数)

質問者が選んだベストアンサー

お礼 2023/10/24 22:53

関連するQ&A

Perl・正規表現が分かりません

Perlの正規表現

Perl正規表現わかりますか？

perlの正規表現について教えて下さい。

文字数の正規表現について

Perlの正規表現について

正規表現で@を使う場合は\@とするべきか@とするべきか悩んでいます。

正規表現について

正規表現

正規表現

正規表現で文字クラスの引き算

Perlの正規表現に関する質問です。

正規表現でカンマを対象にする方法

正規表現時の#の意味についてご教授お願いします

正規表現のチェックについてお聞きしたい事があります

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

正規表現が読めない

正規表現について

perlの正規表現

phpの正規表現について

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

カテゴリ
一覧

専門家に質問してみよう
専門家登録