SE-1 の回答履歴

配列の戻り値が理解できていないのですが、 Perlで正しく動作させるためには どのように記述したら良いのでしょうか？ 戻り値の動作を詳しく書いてある（出来れば図入りで） 本はありますか？ 例） sub a { my @a = ('A'); return (@a, "B", 2); } my (@a, $b, $c) = &a; print "a=[@a] b=[$b] c=[$c]\n"; # a=[A] b=[B] c=[2] # これを期待していたが # a=[A B 2] b=[] c=[] # こちらになる

$test='なんとか.かんとか。なんとか.かんとか。'; この文字を削除・置換する場合、 $test =~ s/\./。/g; $test='なんとか。かんとか。なんとか。かんとか。'; で良いと思うのですが、これを、ある、サブルーチンの中で行うと文章が全て削除されてしまいました。 理由も分かりません。どのようにすれば、「.」を置換できますかね？ご存知の方教えてください。宜しくお願い致します。

Perlプログラムでソースを非公開にしたいのでperl2exeを使おうと思ってます。 利用する前に確認したいのですが、これのデコンパイラってやっぱり存在するのでしょうか？もしあるのなら、Perl2exeを使う意味があまりなくなってしまうので心配です。 ご存知の方、お願いします。

Perl Tkでタイマーイベントは発生できるのでしょうか？ 1秒毎に、例えばa.gifという画像をCanvas上で上から下に落ちていく（前の画像は残さない）スクリプトを書きたいのですが、可能でしょうか？

perlの勉強をしているものです。人様の作ったスクリプトを解析しています。以下のスクリプトについて質問があります。 while(chomp($in = <STDIN>)){ last if ($in eq "\cD"); print "$in"; } このスクリプトに出てきている、"\cD"の意味と、ifの前に出てきているlastの働きが分かりません。またこのスクリプトは全体としてどのような仕事をするのでしょうか？？ 分かる方いらっしゃいましたら、ご教授いただけると幸いです。よろしくお願いします。

perlで substr関数を使って驚いたのですが、 my $a = "abcdefg"; my $b = substr($a, 0, 1, ''); print $a, "\n"; print $b . "\n"; で、$bがaだとは分かるのですが、$aが bcdefg と無くなっています。正しいと思いますが、 私自身文字列の取り出しでてっきり abcdefgのままだと思っていたので驚きでした。 BASICでいう MID関数と同じような働きのPerl関数は あるのでしょうか？モジュールでも結構です。

２つの日付、時間の差分を求めるには、 timelocal を使うのかと思うのですが、 $time1 = timelocal($sec1,$min1,$hours1,$day1,$month1,$year1); $time2 = timelocal($sec2,$min2,$hours2,$day2,$month2,$year2); $result = int(($time2 - $time1)/(60*60*24)); return $result; ではいけないのでしょうか？

ついこの間正規表現のことで質問させていただいたものです　なんとか問題は解決しました それとは別にソート関連での質問があります 正規表現の前にソートについて質問してご回答を頂いてからそれを参考に試してみました http://oshiete1.goo.ne.jp/kotaeru.php3?q=1882190 です push　で@tmpの内容を （$score,$filename,$title,$sentenceの順番に） 3.5 abc.txt あいうえお　aaaaa 4.6 def.txt かきくけこ　bbbbb 2.8 ghi.txt さしすせそ ccccc 5.1 jkl.txt たちつてと　ddddd という風にしました このリストを @tmp = map {$_->[0]} sort {$a->[0] <=> $b->[0]} map {[$_, split /<>/]}@tmp; としたんですが結果は abc.txt あいうえお　aaaaa def.txt かきくけこ　bbbbb ghi.txt さしすせそ ccccc jkl.txt たちつてと　ddddd 3.5 4.6 2.8 5.1 というふうになってしまいます これを スコア順に 5.1 jkl.txt たちつてと　ddddd 4.6 def.txt かきくけこ　bbbbb 3.5 abc.txt あいうえお　aaaaa 2.8 ghi.txt さしすせそ ccccc としたいのですがうえのソースでは何がいけないんでしょうか？？

PerlTKでブロック崩しみたいなゲームプログラムを書きたいのですが、そのような参考になるサイトとか書籍はありますか？ マウスやキーボードでバーを動かし、ボールが落ちてきて跳ね返る（この際、ブロックなしでも構わない） ようなことができたらと考えております。

こんばんわ～ときどきこちら様でお世話になってます タグ（Java ScriptやHTML中のCSS等きわめて複雑なものも含む）を完全に削除してウェブサイトの文字だけを抜き出したいんですけど自分にはハードルが高すぎたみたいです^^; http://www.din.or.jp/~ohzaki/perl.htm#HTML_Tag いろいろ調べているうちにこちらのサイト様を発見し、 $none_tag =~ s/$tag_regex//; とやってみましたがなぜかタグが残ってしまいます。 とあるサイトの【文字】だけを抜き出せれば良いのでタイトルに正規表現と記載しましたがその他の方法でも構いませんのでよろしくお願いしますm(_ _)m

Perl 5.8 自作モジュールのあるフォルダをFOLDER、モジュールの名前をMODULEとして以下のコードを実行してもモジュールが見つからない旨のメッセージが表示されます。 モジュールの拡張子は.pmを使用しています。 また、モジュールを標準の拡張モジュールのおき場所に置いた場合は適切に動作しました。 #! /usr/local/bin/perl push (@INC ,FOLDER); use MODULE;