uninitialized value
以下のプログラムを動かします．実行結果も特におかしいところはありません． #!/usr/bin/perl my @arr=(1,2,3,4,5); my @printValue=@arr[3..5]; print @printValue; 実行結果 bash-2.05$ ./sam.pl 4 5 同じプログラムを-wオプションをつけて実行します． #!/usr/bin/perl -w my @arr=(1,2,3,4,5); my @printValue=@arr[3..5]; print "@printValue\n"; 実行結果です． bash-2.05$ ./sam.pl Use of uninitialized value in join or string at ./sam.pl line 5. 4 5 ５行目のprint "@printValue\n";で初期化していない値を使
おれさまメモ: perl で Use of uninitialized value in pattern match
« Wanderlust 小ネタ | メイン | PPP over SSH で複数アカウント » 2006年03月06日 perl で Use of uninitialized value in pattern match [ カテゴリ : google 迎撃テスト ] 久々 google 迎撃テスト。 perl で Use of uninitialized value な warning が出るのをどうにかしたい人が世に多いと見た。 加筆： "Use of uninitialized value in pattern match" は「初期化されていない値がパターンマッチで使用されました」という警告です。他に置換や print でも出ます。（エラーメッセージ等は下のほうの例参照） 安直な回避方法としては、-w オプションをとっぱらって警告を出ないようにする。 まっとうな回避方
Use of uninitialized value の傾向と対策 - bonar note
テストスクリプトで Use of uninitialized value の valuewarning を出しまくってみました。 #!/usr/bin/perl use strict; use warnings; my $str; # undifined string my %hash; # undifined hash # Use of uninitialized value in pattern match # Use of uninitialized value in substitution $str =~ /a/; $str =~ s/a/b/g; my $foo = 'hello'; $foo =~ s/hell/$str/; # Use of uninitialized value in string eq # (numeric eq, ==, lt, gt, ...) if
Perlの対話モード - $ cat /var/log/shin
調べても情報古かったり、よく分からなかったり、うーん。 Perlの対話モード、なんて洒落たものは標準では存在しない pythonとかirbとか涙ちょちょぎれるぐらい便利ですね。特にPythonの「デフォルトは対話なんだ」という姿勢には感服です。 ではPerlは？というお話ですが、ググると色々あるようではあります。 デバッガを使う perl -de 0 psh perlsh (Term::ReadLine::Gnuから抽出？) pirl (Shell::Perl) re.pl (Devel::REPL) などなど。ググるとperlshの情報が多いようですが、結論から言うと、re.plというのが一番イマドキのようです(?)。re.plはDevel::REPLで入るらしいのでCPANから入れればよいのですが… $ cpanm Devel::REPL ... $ re.pl Failed to l
while と foreach の違い - kameidの備忘録 - Sharpen the Saw!
while(<STDIN>) { print; } と foreach (<STDIN>) { print; } の違いをあんまり意識していなかったが、while は、一行ずつこれを解釈し、print するのに対して、foreach はリストコンテキストで使われる。つまり、ループの実行を始める前に、リストの内容をすべて読み込むことになる。 通常2つに動作の違いは見られないが、巨大ファイルが処理の対象であった場合は、foreach だとメモリが足りなくなったり、処理が始まるまでにえらい待たされたり・・・ということが発生するだろう。
「なぜ国内でPerlが急速に萎んだのか」という記事を読んで - Perl入門ゼミ
Perl › 読み物 僕もPerl入門書いている身なので反応しておこうと思います。 メインコンテンツの「サンプルコードによるPerl入門」の目次はこちらです。こちらがメインコンテンツになります。Perlはとても便利なプログラミング言語ですので、一緒に学びましょう。 なぜ国内でPerlが急速に萎んだのか まずこの人はRubyとPythonが好きで、Perlが嫌いな人です。まぁ好き嫌いはあってよいんですけど、書いている内容が不誠実すぎて、信用ができないです。 Perlが萎んでいるという議論をする前に、ライブラリの数とか、アプリケーションの数とか、求人とか賃金とか採用している企業とかなんでもいいけれど、何か目に見える統計情報がないと、単なるイメージを落とすために書いていると思われても仕方がないと思う。 2005年 Railsの襲来 2005年に突如現れたRailsによって国内でRuby利用者が急
知ってそうで意外と知られていないperlの小技 10選 - download_takeshi’s diary
意外と知られていないperlテクってのが、意外とあるもんですね。 最近身の回りでいくつか話題に上がったものがあったので、ちょっと書いてみます。 どれも最新のモダパ的なモノではないけども、知っておくと地味に便利かもしれないノウハウです。 中級レベル以上のperlユーザの人たちでも「お、こんなの知らなかった」というのもあるかもね。 複数項目でのソート よくエクセルなんかで「A列を降順、B列を昇順にして並び替え」みたいなことしますよね？ perlで複数項目のsortではどうすればできるでしょうか？ じつはとっても簡単。sortの次に続くブロックの中でorするだけです。 例えば以下のような４人の子供たちのデータを年齢順、体重順でソートしてみます。 use strict; my @data = ( { name => '太郎', age => 10, weight => 25, }, { name
文字列が整数を表現しているかを判定する - Perl入門ゼミ
Perl › 数値 › here 文字列が整数を表現しているかを判定するには、正規表現を利用します。正規表現で最初から終わりまで数字でできているかどうかを判定します。 /^[0-9]+$/ 整数であるかどうかを判定するには上記の正規表現に、先頭に+か-が指定されてもかまわないということを付け加えるだけです。 /^[+-]?[0-9]+$/ サンプル 変数が数値かどうかを判定するサンプルです。 use strict; use warnings; print "1: 文字列が正しい数値を表現しているかを判定する\n"; my $num1 = "345"; # 文字列が数字のみであるかどうかの判定 # 「先頭から数字がひとつ以上続いて末尾にいたる」と読む if ($num1 =~ /^[0-9]+$/) { print "$num1は数字のみの文字列です。\n"; } # 整数であるかどうかの判
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perlゼミ(サンプルコードPerl入門)