回答数
気になる
-
双方向リスト(?)
単方向じゃなくて双方向でなおかつ切り替え可能なリファレンスがほしいです。 AAA = bbb とするとき、 AAAからbbbを返し、bbbからAAAを返す物がほしい。 さらに、AAA = ccc と書き換えた場合、 bbbとの関係は解除される。 具体的には、座標 x y に物体 a とb があるとき、 xyからaとbが得られます。 a b 自体はそれぞれリファレンスであり、物体の詳細データが書き込まれてます。 同様、xyもリファレンスであり、位置についての情報が書き込まれています。 ここまでは単純な相互参照で解決できるのですが、 困ったことに物体は移動をおこないます。車が走って隣町に行くように。 その時、座標から物体にアクセスする場合と、 物体から座標にアクセスする場合がおかしくならないように一発で解決する手段を教えてください。 なお、現在は全く無関係な単方向なリファレンス(ようは普通のリファレンス)を二つもちいています。 位置を書き換えるときは、物体から座標にアクセスし、 その座標から自分自身へのリンクを検索し、 そして削除し、 自分自身の座標へのリンクを削除し、 自分自身の新しい座標へのリンクを埋め込み、 そしてその座標にアクセスし、 自分自身へのリンクを埋め込むという、かなりカオスなことになっています。 普通、位置と物体って同時に平等に存在するものじゃなかったっけ?うーむ。 記述がカオスにならない良い方法を教えてください。 あと、何万回もループするプログラムなので出来れば速いやつがいいです。
質問日時: 2012/10/02 07:14 質問者: TANUKIA
ベストアンサー
4
0
-
Perlでのファイル内データ処理方法について
プログラミングを始めたばかりです。 Cygwin上でPerlを行っています。 下に示すように、計算プログラムの中にデータを記入し、そのデータを処理することは出来たのですが、外部のファイルを読みそのデータを処理する方法が分かりません。 # y = ax + bを求める @x=(1,2,3); @y=(1,4,9); for($i=0;$i<$n;$i++){ $A = $A + ($y[$i] * $y[$i]); $B = $B + ($x[$i] * $x[$i]); ・ ・ ・ $a=・・・ $b=・・・ print("a=$a,b=$b"); パールファイル(.pl)内に @x=(1,2,3); @y=(1,4,9); のように記載すると、データが変わるたびにファイル内の数値を入れ替えないといけないと思うのですが、cygwinのウィンドウに、 $ ./lesson.pl 10 <data1.csv のように入力しEnterすると、ファイル内の数値を入れ替えないで指定したファイル(ここではdata1.csv)のデータが処理されると思うのですが、その場合パールファイルをどのように記述すればよいのでしょうか。また、cygwinのウィンドウにどのように入力すればよいのでしょうか。 よろしくお願いします。
質問日時: 2012/09/28 12:41 質問者: pipe_gg
ベストアンサー
2
0
-
Perlでのファイル処理方法について
プログラミングを始めたばかりです。 Cygwin環境でPerlを行っています。計算プログラムをPerlで書いています。 下に示すように、計算プログラムの中にデータを記入し、そのデータを処理することは出来たのですが、外部のファイルを読みそのデータを処理する方法が分かりません。 # y = ax + bを求める @x=(1,2,3); @y=(1,4,9); for(<stdin>){ for($i=0;$i<$n;$i++){ $A = $A + ($y[$i] * $y[$i]); $B = $B + ($x[$i] * $x[$i]); ・ ・ ・ $a=・・・ $b=・・・ print("a=$a,b=$b"); open (IN, $file) or die "$!"でcsvファイルに記載されてある数値をCygwin上で実行することは出来ました。 作成したプログラムとcsvファイルをCygwinで入力して、入力したcsvファイルのデータを処理(直線近似して傾きを求めたりなど)したいのですが、どうすればよいのでしょうか。 よろしくお願いします。
質問日時: 2012/09/27 15:49 質問者: pipe_gg
ベストアンサー
2
0
-
複数行に渡る文字列の置換
Perlで書かれたソースを以下のように書き換えたいと考えています。 【変換前】 my $message = Convert( From => 'Shift_JIS', To => 'utf-8', Text => "(UTF-8の文字列)", ); 【変換後】 my $message = Convert( "(UTF-8の文字列)" ); ソース・ファイルは非常にたくさんあるのでスクリプトを組んで一括で行いたいと考えています。 容易く書き換えを完了できる方法はないでしょうか? ■前提条件 - 別の場所に出力するようにする場合はディレクトリ階層も維持する。 - インデントされている場合はインデントを保持する。 perl -pi -e 's///'で置換することが最も簡単そうですが、今回は複数行に渡るため、 s///の部分が非常に複雑になりそうです。なので、s///の部分をスクリプト・ファイルかなにかに 置き換えて、下記のように実行できればと考えているのですが、(何かしらのオプション)の部分が よくわかりません。。 perl -i (何かしらのオプション) (ファイル名) (ソースファイル名)... もちろんもっと良い方法があれば、その方法が良いです。 よろしくお願いいたします。
質問日時: 2012/09/26 11:06 質問者: entree
ベストアンサー
2
0
-
ファイル操作
私はレス機能付きの掲示板を作成しました。 そこで質問なんですが、親記事に対してレスが付けられた場合、その親記事をトップへソートしたいんですが、どうすればよろしいでしょうか? ソースコードはこれです。 http://daisykatsura.dip.jp/bbs.txt
質問日時: 2012/09/22 10:32 質問者: humu01jp
ベストアンサー
1
0
-
ActivePerlでモジュールのアップグレード
Windows2003上でActivePerl(V5.14)を使用しています。 SMTP送信に使用するため、ppmでEMail-MIME関係のモジュールをインストールしました。 その状態で実行したところ、Email-Simpleというモジュールの2.102が必要であるというエラーが出ました。現在のモジュールは2.101が入っています。 PPM上ではEmail-Simpleの最新は2.101ということで最新と見なされているようですが、リフレッシュをしても2.102が適用可能という状態になりません。 提供元がcpanとなっているので、以下のレポジトリを追加してみましたが、表示されません。 http://cpan.uwinnipeg.ca/PPMPackages/10xx/package.xml cpanのサイトを見ると、2.102が最新でPerl5.14にも適用と書いてあります。 コマンドラインで手動アップグレードすることも可能なのでしょうか? また手動でアップグレードした場合、GUI画面にも反映されるものなのでしょうか? ご存じの方がおられましたら、よろしくご指導お願いします。
質問日時: 2012/09/20 15:52 質問者: hatsuzo
ベストアンサー
1
0
-
Perlで数字が出てくる回数をカウントするには?
ある、1から5までのスロット(またはセル)に1から200までの数字がランダムに出てくる(登録される)とします。その出てきた、数字が同一のものであれば数を数えたいのですが、どなたか教えていただけないでしょうか? たとえば 1 に 123 2 に 45 3 に 3 4 に 62 5 に 45 とあったとします。 そうすれば、2と5のスロット(またはセル)に45が 2個あるので 表示を45が2 123が1、3が1、62が1のように表示させたいのです。 123, 1 45, 2 3, 1 62, 1 どうもいいサイトもなくうまくできません。 どうすればできますでしょうか? よろしくお願いします。
質問日時: 2012/09/15 08:00 質問者: PerlLearner1
ベストアンサー
2
0
-
perl+win7でMecabを使う方法について
Mecab http://mecab.googlecode.com/svn/trunk/mecab/doc/index.html ---perl script[UTF-8]-------- # my $cmd = `"C:/Program Files (x86)/MeCab/bin/mecab.exe" "C:/Program Files (x86)/MeCab/bin/test.txt"`; my $cmd = `"C:/Program Files (x86)/MeCab/bin/mecab.exe" "今日は晴れだ。"`; open(F,">test_out.txt"); print F $cmd; close F; ------------------- 1行目の方法で行うと成功しますが、2行目の方法で行うとファイルの読み込みを行っているようで失敗します。 直接文字を入れることで動作させたいのですが方法はありますでしょうか? また、様々なプログラムの知識をネットで拾い読みする感じで付けてきて、あまり体系的に勉強していません。こういった、事の分かる書籍などあれば教えて頂ければ幸いです。 宜しくお願い致します。
質問日時: 2012/09/15 00:05 質問者: tanaka_meio
ベストアンサー
3
0
-
STDIN
入力待ちにならないようにSTDINを使いたいのですが、 通常はどのような方法を取るのでしょうか? 定期的なチェックが出来るだけで構いません。 普通は別プロセスを立ち上げるのでしょうか? その時はどのような方法が楽でしょうか? またプロセス間通信はどのような方法を取るのが一般的ですか? いくつかの一般化された方法があるなら複数でも構いません。
質問日時: 2012/09/13 08:36 質問者: TANUKIA
解決済
2
0
-
Perl Postgres 連想配列化
いつもお世話になっております。 標題についてご教授願えないでしょうか Perl+Postgressqlで取得したレコードを連想配列化にしたいのですが、 @data = (); my $conn = Pg::connectdb(接続情報) my $query = "SELECT * FROM data; my $result = $conn->exec($query) if($result->resultStatus ne PGRES_TUPLES_OK){ exit; } my $cnt = $result->npuples my $fields = $resut->$rset->nfields; for ($i=0; $i<$cnt; $i++){ for(j=0; $j<fields; $j++){ $data[$cnt][$result->fnam($fields)] = $result->getvalue($j,$j) } これではいけないんでしょうか。
質問日時: 2012/09/10 19:34 質問者: prr4e
解決済
1
0
-
PerlでのUseless use...
お世話になります。 真になる演算子が1を、偽になる演算子がundefを返すことを研究しています。 print "3 == 3:【", 3 == 3, "】\n"; であれば、3 = 3が1を返すので 3 = 3:【1】 となります。 print "3 > 4:【", 3 > 4, "】\n"; であれば、3 > 4がundefになるので 3 > 3:【】 になります。 さて、and 演算子を使ったところも見たいと重い、 print "3 == 3 and 3 > 4:【", 3 = 3 and 3 > 4, "】\n"; と書いて実行すると Useless use of a constant in void context at C:\Perl\perl\showAndTF.pl line 8. という警告と共に 3 == 3 and 3 > 4:【1 と出力されてしまいます。 これはなぜでしょうか。 よろしくお願いします。
質問日時: 2012/09/09 09:39 質問者: TYWalker
ベストアンサー
4
0
-
perl アップロード
http://hole.sugutsukaeru.jp/archives/10 こちらのサイトでPerlでのファイルのアップロードを行なおう思い、 作成しているのですが、 エラーになり表示されません。 コードを貼り付けると、 #!/usr/bin/perl -w #使用するモジュールをロード use File::Basename; use CGI; #変数宣言 my ($form, $dir, $filename, $parsename, @filename, $error, $ok, $type, $newfile, $i, $buffer, @ext_ok); #ファイルを保存するディレクトリを設定 #(CGIの実行ユーザで書き込み権限が必要) $dir = './files'; #受付可能な拡張子(正規表現) @ext_ok = qw ( txt zip pdf doc cgi ); #CGIオブジェクトを作成 $form = new CGI; #転送できるファイルの最大サイズを設定 #(実際は、post送信されるコンテンツ合計の最大サイズ) #この値は、CGIオブジェクトを作成する時には既に #設定されていなければならない $CGI::POST_MAX = 1024 * 1000; #max = 1MB #CGIオブジェクトを作成 $form = new CGI; #クライアントにヘッダを送信 #これは、結果メッセージ表示のため binmode STDOUT; print "Content-Type: text/plain;charset=euc-jp\r\n\r\n"; #ファイルの転送のチェック if (!defined($filename) and $error = $form->cgi_error){ #ファイルが転送されていなかったら、$filename は 未定義値となっている。 #フォーム上でファイルを選択しないままフォームがサブミットされた場合は、 #通常はこの変数 $filename は空文字列として定義されている(=未定義ではない)。 #このため、以前のバージョンでは $filename が定義されている #かどうかをエラーの判別の基準としていたが、 #2007年3月 Mac OS X 上の Netscape 7.1 で試したところ、 #ファイル選択されていない場合に未定義値になることが判明。 #このため、エラーの場合に設定される(筈の)値 $form->cgi_error も判別の #基準に追加した。 print "ファイルが転送できませんでした:$error\n"; exit; } if ($filename) { #ファイルが転送されていれば、値は真 #ファイルパス内の「\」を「/」に変換 # $parsename には、送信元クライアントマシン内での #ファイルパスが格納されている。 #注:Shift_JISで実装する場合、このあたりには工夫が必要。 $parsename =~ s#\\#/#g; #ファイル名を(ベース名, ディレクトリ名, 拡張子)に分解 @filename = fileparse($parsename, "\.[^\.]+"); #ベース名のチェック(アスキー文字列であること) $filename[0] =~ /^[\.\w~-]+$/ and $filename[2] =~ /^[\.\w-]+$/ and $ok = 1; unless ($ok) { $error = 'ファイル名は、半角英数字にして下さい。'; print "ファイル転送ができませんでした。: $error\n"; exit; } $ok = 0; #フラグのリセット #拡張子のチェック foreach (@ext_ok){ $filename[2] =~ /^\.$_$/ and $ok = 1 and last; } unless ($ok){ $error = "許可されていない拡張子($filename[2])です。"; print "ファイル転送ができませんでした。: $error\n"; exit; #サーバ側ファイル名の決定 #まず、セッションごとに一意のディレクトリ名を作成 while (-d "$dir") { $dir = $dir.'/upload_'.&gen_unique_key(15); } #ファイルを格納するディレクトリを作成 unless (mkdir($dir, oct(777))){ print "保存ファイル用ディレクトリの作成に失敗しました。: $!\n"; exit; #サーバ側のファイルパスを設定 $newfile = $dir."/".$filename[0].$filename[2]; #既に同名のファイルが存在した場合 #(複数の同名ファイルを同時にアップロードした場合など)は、 #ベース名にアンダースコアと番号を付けて別名にする $i = 0; while (-f "$newfile"){ $i++; $newfile = $dir."/".$filename[0]."_".$i.$filename[2]; } #ファイルの保存 unless (open (OUTFILE,">$newfile")){ print "サーバ側の保存ファイルの作成に失敗しました。: $!\n"; exit; } #保存用ファイルを無事 open できた場合 #改行コードの自動変換を停止 binmode (OUTFILE); binmode ($filename); # $filename から内容を読み出して #保存用ファイルに書き出す #この場合、変数 $filename はファイルハンドルとして #機能する while (read($filename,$buffer,1024)) { print OUTFILE $buffer; #ファイルを close して終了メッセージを表示 #この場合、$filename は、送信元クライアント #マシン内でのファイルパス(ブラウザが送信してきた値)を返す close (OUTFILE) and print "送信されたファイル ($filename) を右のファイル名で保存しました: $newfile\n" or print "サーバ側の保存ファイルのクローズに失敗しました。: $!\n"; } else { # ファイルが転送されていない場合 # $filename は 偽 print "ファイルはアップロードされていません。\n"; } #一意の文字列を作成するための関数 sub gen_unique_key($){ #生成する文字列の長さを引数で指定 my $length = shift; my ($i, $tempval, $key, $chars, @chars); #引数で指定された文字列長さが、 # 5以上 30以下の数値でない場合、15に設定 #(範囲は、長からず短からず...。) ($length =~ m/^\d+$/ and $length >= 5 and $length <= 30 ) or $length = 15; #使用する文字を指定(ディレクトリ名として使用できる文字を指定する) $chars = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890~-_'; @chars = split(//, $chars); #乱数のタネを作る srand(time|$$); for ($i=0; $i<$length; $i++){ # @chars 配列の最大の添字までの乱数を生成する $tempval = int(rand(scalar(@chars))); $key .= $chars[$tempval]; } return $key; } となりますが、どこが間違えているのでしょうか。 上記コードは、サイトからのコピペになります。 よろしくお願いします。
質問日時: 2012/09/01 15:23 質問者: spider32
ベストアンサー
2
0
-
perl の挙動について
$today = "2012"; my @file = qw( result_001_${today}.txt result_002_${today}.txt result_003_${today}.txt ); for(@file){ print ; } 例えば、こういったスクリプトがある場合、$todayが代入されることなく出力されます。 なぜか分かりますでしょうか?
質問日時: 2012/08/28 16:38 質問者: shiki_05_0
ベストアンサー
2
0
-
半角スペース削除について
半角スペースを一度削除してから禁止語句などがないかチェックし、 その後、半角スペースなどが入っている場合、元状態に戻したいと思います。 以下のように記述することで半角スペースを削除してから チェックはできると思うのですが、 それを元の状態に戻すということは不可能でしょうか? $str =~ s/[\s ]+//g if($str =~ /バカ/){ push(@error, 'バカと投稿はできません'); }
質問日時: 2012/08/27 10:35 質問者: masa-25
解決済
4
0
-
Perl+UTF8で文字化け
以下の環境にてメール送信プログラムを作成していますが、 ありがちな文字化け、且、ボディーが表示されない不具合が発生しています。 サーバ:linux apache レンタルサーバ ※Encode.pm、Jcode.pm無し。モジュールインストール不可。 Perl version: 5.006001 ソースエンコード:utf-8 自分の解釈としてはutf8で記述しているので、 charset=utf-8にしておけば、 MIMEエンコードさえしてやれば 表示できると考えているのですが、 やはり甘い考えなのでしょうか? また、同サイト質問NO2868794も参考にさせていただきましたが、上手くいきません。 以下ソース(エンコード:utf-8) use utf8; use MIME::Base64; use POSIX; ※アドレス表記はこのサイトの投稿チェックに引っかかるので省略します。 my $to = 'XXXX@XXXX'.XXX; my $from_nm = "送信者名"; my $from_adr = "XXXXX@XXX.XXX"; my $subject = "メール表題"; my $body = "本文"; # 送信者名を MIME エンコード encode_base64($from_nm,""); # subjectを MIME エンコード encode_base64($subject,""); $subject = "=?utf-8?B?" . $subject . "?="; # 本文を MIME エンコード encode_base64($body); my $MailPass = "XXXX/XXXX/XXX"; #SendMail Pass open(MAIL,"| $MailPass -t"); #======================================================== print MAIL <<"EOF_MAIL"; From: $from_nm<$from_adr> To: $to Subject: $subject Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: base64 MIME-Version: 1.0 $body EOF_MAIL #======================================================== close MAIL; その他、色々ググっては見たのですが、自分ではみつけられず、 どうかアドバイスありましたらよろしくお願いいたします。
質問日時: 2012/08/25 13:20 質問者: cinquecent
解決済
1
0
-
perlで配列名を動的に作り出したい
試しに次のようにしてみましたがエラーになりました。 #!/usr/local/bin/perl use strict; use warnings; my $mystr = "abcde"; my @{$mystr} = (1,2,3); $mystrの内容はいろい変わっていきます。 ご存知の方いらっしゃいましたらすみませんが教えてください。 よろしくお願いいたします。
質問日時: 2012/08/25 11:31 質問者: sleek55
ベストアンサー
3
0
-
一定時間が経過したフォルダの削除
一定時間が経過したファイル削除のsauceを使って、サーバーのディレクトリを削除しようとしましたが指定した時間内のディレクトリが削除できません。間違っている個所をご指摘くださいますようお願い致します。 #古いディレクトリの削除 $dir='./z'; opendir(DIR, "$dir"); my @dirlist = grep /^*/, readdir DIR; closedir(DIR); my $expire_t = 15552000; #180日以上経過したファイル指定 (1日は86400) my $expire_d = 31536000; #365日以内に生成されたファイル指定 my $now = time; foreach my $deldir (@dirlist){ my $mtime = (stat("$dir/$deldir"))[9]; if ($now > $mtime + $expire_t && $now < $mtime + $expire_d){ rmdir("$dir/$deldir"); } } どうぞ宜しくお願いします。
質問日時: 2012/08/24 11:43 質問者: nomark
ベストアンサー
1
0
-
Cookieの有効期限について
Cookieの有効期限を半年間にしようと思い、 プログラムを覗いてみたところ、以下のような記述がありました。 どこをいじれば半年間に伸ばすことができるのか教えていただけますか? どうかよろしくお願いいたします。 sub set_cookie { ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60); $yearg += 1900; if ($secg < 10) { $secg = "0$secg"; } if ($ming < 10) { $ming = "0$ming"; } if ($hourg < 10) { $hourg = "0$hourg"; } if ($mdayg < 10) { $mdayg = "0$mdayg"; } $month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong]; $youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg]; $date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT"; $cook="name\:$FORM{'cntr'}\,email\:$FORM{'email'},pswd\:$FORM{'pswd'}"; print "Set-Cookie: TORBBS=$cook; expires=$date_gmt\n"; }
質問日時: 2012/08/20 22:29 質問者: masa-25
ベストアンサー
1
0
-
perl intの動作について
Perlのintについてですが、以下の3の計算結果が異なる理由を教えてください。 1:print 1080/1.08; →「1000」と表示される 2:print int 1080/1.08; →「1000」と表示される 3:print int(1080/1.08); →「999」と表示される Perlのバージョン:ActivePerl v5.14.2 OS:Windows XP
質問日時: 2012/08/17 00:42 質問者: zuku
ベストアンサー
4
0
-
Perl 一定時間後にプログラムを実行
恐れ入ります。 一定時間後にプログラムを実行したいのですが、sleepですと、すべてのプログラムが停止してしまいます。 プログラムの一部を、一定時間後に実行するにはどうしたらよいのか苦戦しています。 $SIG{ALRM} = \&timeout; eval { alarm 5; print qq! 再生中!; alarm 0; }; alarm 0; sub timeout{ print qq!5秒経ちました!; } としてみましたが、うまくいきません。再生中を表示しながら、5秒後に5秒経ちましたと、 再生中を表示しながら表示したいのですが、どのようにしたら良いでしょうか。 よろしくお願いします。
質問日時: 2012/08/15 10:58 質問者: spider32
ベストアンサー
1
0
-
Perlで苗字と名前の入れ替えしたいです。
Yamamoto TaroをTaro Yamamotoにしたいです。ただし間のスペースの個数は維持したいんですが・・・ Perlで簡単にやる方法ありますか・・・
質問日時: 2012/08/12 06:00 質問者: kechiya1
解決済
4
0
-
定数についての質問です
設定ファイルにこのように設定されている際に use constant SUUCHI_MAPPING => { 'one' => 'xxx', 'two' => 'yyy', 'three' => 'xxx', 'four' => 'zzz', 'five' => 'yyy', 'six' => 'yyy' } 下記のような持ち方にして使用しやすくするにはどのような処理をしたらいいでしょうか。 use constant SUUCHI_FORMAT => { xxx => ['one','three'], yyy => ['two','five','six'], zzz => ['four'] };
質問日時: 2012/08/09 23:40 質問者: deodeo123
解決済
2
0
-
パターンマッチにおける「-」の扱い
例えば以下のように記載するとエラーとなります。 if($::FORM{'body'} =~ /パターン/){ push(@error, '投稿できません'); } しかし、以下のように記載するときちんとパターンマッチします。 このふたつともエラーが出ておかしくないと思うのですが なぜ以下ならOKなのか教えてください!! @word=qw(パターン); foreach (@word) { if (index($::FORM{'body'},$_) >= 0) { push(@error, '投稿できません。'); } }
質問日時: 2012/08/09 11:55 質問者: masa-25
ベストアンサー
1
0
-
プロトタイプ宣言のワーニングについて
関数のプロトタイプ宣言と、それに関するwarningsプラグマについてお教えください。 関数のプロトタイプ宣言は、その関数を呼び出す側がコンパイルされる時点で、すでに存在する必要があり、また、use warningsによってプラグマを有効にしておくと、遅いプロトタイプ宣言について警告してくれると理解していました。 以下の2例は、どちらもプロトタイプ宣言が遅いために、うまくプロトタイプが働かない例です。 しかし、(例1)ではwarningが表示されるのに対し、(例2)では表示されません。 どこか私の理解が誤っているのかと思うのですが、このようになる理由についてご教授いただきたく、よろしくお願いいたします。 ■ (例1) #!/usr/bin/env perl # -*- mode: cperl; coding:utf-8 -*- use strict; use warnings; my @a= 1..4; mypush( @a, 5..8); print join( ",", @_), "\n"; sub mypush(@@){ if( @_== 2){ print "ok.\n"; }else{ print "Prototypes does not work, arg. num=", 0+ @_, "\n"; } } □(出力1) main::mypush() called too early to check prototype at ./chk_prototype.pl line 10. Prototypes does not work, arg. num=8 ■(例2) #!/usr/bin/env perl # -*- mode: cperl; coding:utf-8 -*- use strict; use warnings; test_2(); exit 0; sub test_2{ my @a= 1..4; mypush( @a, 5..8); print join( ",", @_), "\n"; } exit 0; sub mypush(@@){ if( @_== 2){ print "ok.\n"; }else{ print "Prototypes does not work, arg. num=", 0+ @_, "\n"; } } □(出力2) Prototypes does not work, arg. num=8 ---- なお、Perlは、 perl -v This is perl, v5.10.1 (*) built for x86_64-linux-thread-multi を使用しております。
質問日時: 2012/08/08 23:27 質問者: gpyon
解決済
1
0
-
CGI::Sessionの使い方
CGI::Sessionなどを使ったことがない初心者です。 どの端末から掲示板に投稿されたか識別するだけのために (セッションの画面遷移は不要) PerlのCGI::Sessionを使ってセッションIDを発行し、 CGI内のセッション記録用ファイルにいつどの端末から投稿されたか記録したいと思っています。 そこでCGI::Sessionについて調べてみたのですが my $session = new CGI::Session("driver:MySQL", $cgi, {Directory=>'./session'}); データーベースはMySQLでなければいけないのでしょうか? My SQLではなく例えばディレクトリ内のdate/session-date.textなどに記録し、 扱いことはできないのでしょうか? またそのような場合にはどのように記述するのか教えてください!
質問日時: 2012/08/07 17:12 質問者: masa-25
ベストアンサー
1
0
-
Perl正規表現s置換演算子の末尾にカンマについて
お世話になります。 Perl正規表現プログラムで、 s置換演算子の末尾に、 カンマと丸カッコでスカラ変数を囲んで、 存在している箇所 たとえば、 s/あいうえお/($hensu = $&) =~ tr{ABC}{abc}, ($hensu) =~ s{123}{123}, ($hensu) /eg; のような正規表現であれば、 上記のtr置換演算子や、s置換演算子それぞれの末尾に、 「 , ($hensu) 」 として、カンマと丸カッコでスカラ変数を囲んで、 存在している箇所は、 どのような意味があるのでしょうか? 以上になります。 PS: ネット上や正規表現の本などを読んでも、 上記したような、 カンマと丸カッコでスカラ変数を囲んでいる パターンの解説を、 見つけられなかった為、 ご質問させていただきました。 ご存じの方がいらっしゃいましたら、 教えてください。 よろしくお願いします。
質問日時: 2012/08/07 12:00 質問者: hiroasa21
ベストアンサー
3
0
-
CSVデータ「","」と「,」混在読取り出来ず
ソート機能がうまく動作しなくなりました。 CSVが以下のようなものとなったときにソートがうまく動作しなくなってしまいました。 CSVデータの区切りが「","」と「,」の混在で区切られてます。 (ここから) データa "山田","埼玉県","男性" "田中","埼玉県","男性" "井上","栃木県","女性" "志村","千葉県","男性" (ここまで) だったり (ここから) データb 1,山田,埼玉県,男性,50,"予算2,000円",0 2,田中,埼玉県,男性,36,予算なし,0 3,井上,栃木県,女性,30,予算100円,0 4,志村,千葉県,男性,27,"予算300,000円",0 (ここまで) このようなテータの時もあります。 以前のアドバイスをもとに以下のように作成いたしました。 (ここから) while (my $line = <$ifh>) { if ($socnt == 0 ){$socnt++;next;} my $key = (split /\",\"/, $line)[$ccsv]; push @{$sorted{$key}}, $line; if (@{$sorted{$key}} == 1000) { open OUT, ">>./$key.tmp" or die "Can't open: $!"; print OUT @{$sorted{$key}}; close OUT; @{$sorted{$key}} = (); } } (ここまで) この場合だと my $key = (split /\",\"/, $line)[$ccsv]; データaはうまくいくのですが、データbがうまくソートが動作いたしません。 my $key = (split /,/, $line)[$ccsv]; ではデータbはうまくいくのですが、データaうまくソートが動作いたしません。 条件式で混在認識方法があるかと思っている(ないかもしれませんが、わたしには分かりません)ので質問いたしました。 ご教授いただけますと幸いです。 よろしくお願いします。
質問日時: 2012/08/02 23:05 質問者: hihin2003
ベストアンサー
4
0
-
Apacheの種類
Pealを始めようと思いApache2.2をダウンロードしようと思いました。 こちらのサイトです。 http://httpd.apache.org/download.cgi ところがダウンロードしようとしたら8つもソフトがあるようなのです。 httpd-2.2.22.tar.gz httpd-2.2.22.tar.bz2 httpd-2.2.22-win32-src.zip httpd-2.2.22-win32-x86-no_ssl.msi httpd-2.2.22-win32-x86-openssl-0.9.8t.msi httpd_2.2.22-netware.zip Security and official patches Other files そのためどれをダウンロード指定医か分からないためできませんでした。 ですのでどれを使っていいのかがわからないのでどのようなものが私向きなのか教えていただけますか? 用途は掲示板やチャットを製作予定です。
質問日時: 2012/08/02 01:13 質問者: tomoko4913
ベストアンサー
1
0
-
macのvimで円記号を使いたい
今までPerlをWindows環境で書いていました。 エディターはずっとVimです。 最近になって、Macを手に入れたのでMacで開発したいのですが Macでは円記号ではなくバックスラッシュでないと変数が認識されないことに気づきました。 バックスラッシュでも書けないことはないのですが、optionキーを押さないといけないことと Windows環境に慣れていたため、バックスラッシュだと変数が見づらいということもあり、macのVimでも円記号をそのまま使えないかと思っていますが、Vimの設定がいまいちよくわかりません。 もしお分かりになる方がいたら教えて頂けないでしょうか?
質問日時: 2012/07/31 17:47 質問者: dfret
ベストアンサー
1
0
-
Perl このプログラムの解説をお願いします
Perl初心者です。 簡易なタイマーのプログラムです。 (1)$s=shift||60; この部分の shift と || はどういった意味合いを持っているのでしょうか。 (2)for(1..$s) このfor構文の括弧内はどういった意味合いを持っているのでしょうか。 $s=shift||60; $|=1; for(1..$s){ sleep 1; print"$_\r" } print"\n"
質問日時: 2012/07/30 15:04 質問者: gohandaisuki520
ベストアンサー
5
0
-
Perl webのテキストボックスに入力し送信取得
Perl初学者です。Perlでのインターネット通信に興味があります。 webサイトのテキストボックスにテキストを入力し、それを送信・結果を取得するためのプログラムを教えてください! (例) 単語を英訳するプログラムが作りたかったので、”http://ejje.weblio.jp/”の検索ボックスに単語を入れて送信し、帰ってきたURLのhtmlを取得する、といった感じ? 少し勉強したLWPモジュールを使って頂けると嬉しいです。 もちろん、こっちの方が効率がいいよ、といった方法があれば是非教えてください! よろしくお願いします。
質問日時: 2012/07/29 00:30 質問者: gohandaisuki520
ベストアンサー
1
0
-
perlチェックでエラーが出て困ってます
csvファイルが存在するかどうか確認するためif節でheadを使っています $data_hokkaido = "http://denkiyoho.hepco.co.jp/data/juyo_hokkaidou.csv"; if (head "$data_hokkaido" ){ use LWP::Simple; $content = get($data_hokkaido); } こうするとエラーになるのでperlチェックをしてみたところ String found where operator expected at test.cgi line 393, near "head "$data_hokkaido"" (Do you need to predeclare head?) と警告が出ました if節を外して $data_hokkaido = "http://denkiyoho.hepco.co.jp/data/juyo_hokkaidou.csv"; use LWP::Simple; $content = get($data_hokkaido); とするとエラーは出ず、問題なくデータ取得できるので、headに原因があるのだと思いますが、具体的に何が悪いのでしょうか? ちなみに何のデータを取得しているかと言いますと、電力各社の電気予報のデータで、 エラーが出るのは北海道電力ので、同じようにファイルがダウンロードされる形式になっている関西電力部分 $data_kansai = "http://www.kepco.co.jp/yamasou/juyo1_kansai.csv"; if (head "$data_kansai" ){ use LWP::Simple; $content = get($data_kansai); } ではエラーは出ません 理由がお分かりの方ぜひ教えてください。 よろしくお願いします。
質問日時: 2012/07/28 16:30 質問者: choei
ベストアンサー
1
0
-
ネストされているRSSのデータ取り出し
RSSからデータ取り出しについて、ご教授ください。 use XML::RSS; をperlに実装して、RSSファイルを分解し、必要なデータだけ取り出すスクリプトを使用しています。 データがとれなくなったので、ソースを調べたところ、配布元が改造をしたらしく <rss version="2.0"> <channel> <title>RSSによる順位公開</title> <item> <title>タイトル1</title> <rank>1</rank> <preranks> <rank>3</rank> </preranks> </item> <item> <title>タイトル2</title> <rank>2</rank> <preranks> <rank>10</rank> </preranks> </item> のようになっていました。 <rank> はそのときのタイトルの表示ランキングで、<preranks>は、RSSが更新される以前の表示ランキングを示しています。 ちなみに、preranks からネストしている rank を別の表記にしたり、ネストしない構造に変更することは、対応できないとの回答でした。 $rss->parse( RSSのURL ); for (@{$rss->{'items'}}) { $el00 = $_->{title}; $el01 = $_->{rank}; } と実行すると、$el00は、タイトル1 や タイトル2 と希望通りの形に分解できるのですが、$el01 は 13 や 210 など、<preranks> の内側の <rank> と並べた数字で表示されてしまいます。 といって、 $el01 = $_->{preranks}; でも数字がとれません。 こうした構造のRSSで、<rank> と <preranks> をデータとして分解するには、どんな記述をしたらいいのでしょうか? よろしくご教授お願いします。
質問日時: 2012/07/25 01:25 質問者: sagawa126
解決済
1
0
-
Perl での XML 処理での DTD 宣言につ
Perl の XML::LibXML モジュールを使用して XML を処理しています。 例えば、 <?xml version="1.0" encoding="UTF-16" standalone="no"?> <!DOCTYPE aaa PUBLIC "-//bbb//CCCC//EN" "ddd.dtd" []> <doc> ....... </doc> のようなXMLに対してPerlで処理をして、 最後に documentElement を toString して書き出しています。 しかし、この場合、DTD宣言部分を書き出すことができません。 XML::LibXMLでこの部分を取得して書き出すことはできますでしょうか。 どうぞ、よろしくお願いします。
質問日時: 2012/07/24 20:56 質問者: dokuso007
ベストアンサー
1
0
-
perl 配列名変数指定するには
perlプログラムで for文で ループ分の配列定義するには どうしたらよいですか? 下記のようなことができないかと 考えております。 for(my $i = 0; $i < $file_no; $i++){ my @{"segments$i"} =(); #配列定義 my ${"line$i"}=""; #変数定義 my %{"hash$i"}= (); #ハッシュ定義 open(ARG1,$ARGV[$i]); while(<ARG1>){ ${'line'.$i} = $_; chomp ${'line'.$i}; @{'segments'.$i} = split(/\t/,${'line'.$i}); ${'hash'.$i}{${'segments'.$i}[0]}=${'segments'.$i}[1]; } close(ARG1); } #下記で、その後 各ハッシュに設定したデータをもとに いろいろ計算したい foreach my $a (keys %{'hash'.$i}){ ・・・ } 今は、Can't declare array dereference in "my" at test.pl line XX, near "} =" と 配列定義でエラーとなり処理できません。
質問日時: 2012/07/24 09:30 質問者: 1204533
ベストアンサー
1
0
-
perlを使うにはapache?or httpd?
※ 箇条書きで現状を書きます。 ●現在、ローカルにapacheを入れてwordpress(サイト制作)の勉強をしています。 ↓ ●Perlを使えるようにしたいと思い、perlを使っている友人に相談。 すると、httpdをインストールするように言われインストールする。 ↓ ●しかし、ポート番号が塞がっているらしくhttpdを起動できない。 ↓ ●ググった調べてみると、appacheの設定をイジることで、apacheでperlを動かせられるということを 知る。 ↓ ●現在、解決方法に対する自分の認識は、[1]httpdで使うポート番号を他のものに変える [2]apacheの設定をイジってperlを使えるようにする。 【質問】 wordpressを使いながら、perlも使えるようにする最もおススメの方法を教えて下さい。 (※wordpress上でperlを書くという意味ではありません。wordpressで作ったサイトを開く時もあれば、perlで書かれたサイトを開く時もあるという意味です) よろしくお願いします。
質問日時: 2012/07/23 16:37 質問者: daaaago
ベストアンサー
1
0
-
いくつかの条件に不一致の処理
{$CNF::pda{'browser'}{'agent'}{'list'}}というユーザーエイジェントのリストがあり、 そこに7つ登録されていて 7つすべてが条件不一致の場合に 以下のような構文だとホームというリンクが7回表示されてしまい困っています。 7つの条件不一致であった場合でも 1回しか(ホームへのリンクを1回しか表示しない)実行ようにしたいのですが どのようにしたらいいのか具体的に教えてください。 どうかよろしくお願いいたします。 foreach (@{$CNF::pda{'browser'}{'agent'}{'list'}}) { length($_) or next; unless (index($ENV{'HTTP_USER_AGENT'}, $_) != -1) { push(@menu, qq|<a class=Menu href="$CNF::base{'home'}{'url'}">ホーム</a>|);}}
質問日時: 2012/07/17 23:31 質問者: masa-25
解決済
3
0
-
Perlのサブルーチンの引数引継ぎ?
こんにちは。 Perlの引数について質問です。 サブルーチンに引数を渡し、サブルーチンの中で他のサブルーチンをよんでいます。 すると引数を渡していないサブルーチンにまで引数が与えられてしまっているようです。 @_で受け取ると引数が渡されてしまい、$_[0]だと渡されずにすみます。 これはなぜなのでしょうか?Perlには引数を引き継ぐルールでもあるのでしょうか? 以下、サンプルです。 -------------------------------- &test('引数です'); sub test { &test2; } sub test2 { (my $hoge) = @_; } -------------------------------- $hogeに「引数です」が入ります。 &test2;を&test2();とすると大丈夫です。
質問日時: 2012/07/12 11:46 質問者: investigate
ベストアンサー
2
0
-
文字コードの変換(Shift-JISからUTF8)
文字コードがShift-JISのCSVファイルを読み込み、UTF-8のテキストファイルに出力するのに プログラムの中で変更しようとしているのですが、うまくいきません。出力ファイルの文字コードを 確認するとShift-JISのままです。 どなたか教えていただけないでしょうか? ActivePerl v5.16.0を使用し、Encodeモジュールのfrom_toを使用しています。 #!/usr/bin/perl use strict; use warnings; use utf8; use Encode; my $input_file="input.csv"; my $output_file="output.txt"; open (IN, $input_file) or die "$!"; open (OUT, ">$output_file") or die "$!"; while (<IN>){ chomp ($_); my @data=split(/,/,$_); for(my $i=0;$i<@data;$i++){ $data[$i]=Encode::from_to($data[$i],'shiftjis','utf8'); #Shift-JISからUTF-8に変換 $data[$i]=~s/\s+//g; print OUT $_; } print OUT "\n"; } close (IN); close (OUT);
質問日時: 2012/07/11 18:05 質問者: ken6791
ベストアンサー
5
0
-
perlでファイル内を検索
perlでファイル内を検索して読み込みを行いたいのですが どのようにすればよいでしょうか。 環境は、Solaris10 以下のようなファイル(test.txt)から #start1~#endの間にある、”01:”で始まっている値をすべて取得する。 複数行になっている場合、カンマで1つにする。 ”01”ではじまっていないものは無視する。#などで始まっているものも。 ●ファイル:test.txt #start1 01:abc,aaa,bbb 01:1234 #01;a1,b1,c1 02:(省略) 03:(省略) #end #start2 01:(省略) 02:(省略) 03:(省略) #end #start4 01:(省略) 02:(省略) 03:(省略) #end ●結果 abc,aaa,bbb,1234 として読み込みたい。
質問日時: 2012/07/11 16:05 質問者: 999xyz
解決済
3
0
-
PerlコマンドでURLからサムネイル画像を作成
Perlのコマンドで、パラメータにURLを指定すると、サムネイル画像を作成して、サーバに JPGファイルを保存するツールを作成したいのですが、ImageMagick モジュールでできるものでしょうか? いろいろ調べたのですが、探しきれませんでした。。
質問日時: 2012/07/09 13:25 質問者: genuine2010
解決済
2
0
-
phpとperlでメールフォーム+DB登録機能
phpとperlでメールフォーム+DB登録機能を作っていますが、 だいぶ煮詰まってしまいました。 ●設計概要 https://dl.dropbox.com/u/85274673/form.jpg ●参考にしたが解決しなかったURLの一部掲載 http://oshiete.goo.ne.jp/qa/3086758.html http://ml.php.gr.jp/pipermail/php-users/2003-October/019138.html ●使用しているsend.cgi(配布フリー) http://www.synck.com/contents/download/cgi-perl/mailformpro.html ●状況 cgi(perl)もしくはphpだけでdb登録+メール送信両方行うプログラムが 必要となりました。 php単体でdb登録+mb_send_mailをスクラッチで書いてうまくいったと思ったのですが、 ユーザー側に送るメール内容(本文)と管理者側に送るメール内容(本文)を 分けることができず、現状使っているsend.cgiでメール送信し、phpでDBに登録 はできないかと思い、調べながらやってみました。 (cgi(perl)はphp以上に完全素人なので、dbへの登録を行うプログラムが書けませんでした。) form.html→db.php→thanks.html from.html→send.cgi→thanks.html は問題なく動作しました。 設計の通り 1. form.html→db.php→send.cgi→thanks.html もしくは 2. from.html→send.cgi→db.php→→thanks.html を実現したいと思っています。 $_POSTの値さえ渡せれば 1.は実現できそうなのですが、話はそう単純ではないのでしょうか。 ヒントでも貰えれば幸いです。宜しくお願いいたします。
質問日時: 2012/07/09 10:35 質問者: goojyakuma
ベストアンサー
2
0
-
Perlのモジュールが極端に少ない
OS(CentOS 6.2 / 64bit)にデフォルトでインストールされているPerl(version 5.10.1)を使って勉強しているのですが、参考書に記載されているメジャーなモジュールがインストールされてなく、困っています。 自分でインストールする必要があるのかと思い、モジュールのインストール方法を調べたところ、CPANというモジュールを使えば簡単にモジュールがインストールできると知ったのですが、このCPANモジュールも入っていない模様。 ではまずはCPANモジュールから手動でインストールしようかと思ったところ、CPANモジュールインストール時のMakefile.PLを実行すると、ExtUtilsというモジュールが無いと怒られてしまい実行できませんでした。 このような場合、通常よく使われるようなモジュールをまとめてインストールするような方法は無いのでしょうか。 ※ちなみに、@INCでは以下のディレクトリが登録されていました。 ・/usr/local/lib64/perl5 ・/usr/local/share/perl5 ・/usr/lib64/perl5/vender_perl ・/usr/share/perl5/vender_perl ・/usr/lib64/perl5 ・/usr/share/perl5
質問日時: 2012/07/09 04:47 質問者: estt_2011
ベストアンサー
1
0
-
perlでwin32
perlでwin32を使ってマウス操作とかのプログラムを書きたいので、書籍をさがしてるのですがありません。perlを使ってとにかくwin32を扱いたいのですが、入門書とかあれば教えて欲しいです。無い場合この書籍読めば基礎が分かるようなのあればお願いします。
質問日時: 2012/07/03 11:56 質問者: yamada11
解決済
1
0
-
レキシカル変数について
レキシカル変数の書き方について質問なのですが、色々なスクリプトを見ると書き方が色々あり、違いが分かりません。 例) my $test=0; my($test)=0; my @test=(0,1,2,3,4,5); my(@test)=(0,1,2,3,4,5); 上記の場合、それぞれカッコがある場合とない場合の違いはあるのでしょうか? 参考になるサイトでも構いませんので、どなたかご存知の方教えていただけませんか。
質問日時: 2012/06/26 22:04 質問者: hana43
ベストアンサー
2
0
-
perlのファイル存在チェックで
お世話になります。 $filename = "abc-123"; $filename_check = "./data/$filename.html"; if(-e $filename_check) { $ok=1; } 上記ですと、abc-123.htmlと言うファイルが存在していた場合に$ok=1になりますが、 これを、 scv-abc-123.html ert-abc-123.html 上記のようなファイル名でも$ok=1になるようにしたいのですが、 ($filenameで指定したものが含まれるファイル) どのようにすれば良いのでしょうか。 お手数をおかけしますがご教授いただけましたら幸いです。
質問日時: 2012/06/26 12:39 質問者: bou1025
ベストアンサー
1
0
-
PERL Ajax JSON 付随情報
恐れ入ります。 perl 上でJSON出力された情報を、 別ファイルのinput フィールド上に付随情報を表示したいのですが、苦戦しています。 例)Mysql上に以下のデータがあり、 0001|花|ガーベラ 0002|酒 | ビール 0003|菓子|ピーナッツ {"pro_code":"0001",bunrui":"花","pro_name":"ガーベラ"}, {"pro_code":"0002",bunrui":"酒","pro_name":"ビール"}, {"pro_code":"0004",bunrui":"菓子","pro_name":"ピーナッツ"} と、JSONにより出力したデータを、 別ファイルから読み込み、 input フィールドに0001を入力すると、別フィールドに花、ガーベラと表示されるイメージです。 よろしくお願いします。
質問日時: 2012/06/25 12:02 質問者: spider32
解決済
1
0
-
プロトタイプ
質問が二つあります。 ($;@) と書けば、一つ以上の引数を受け付けます。 (\@;\@) と書けば、一つもしくは、二つの配列を引数として受け付けます。 では、一つ以上の配列を引数として受け付けたい場合はどうしたらいいんでしょうか。 (\@;\@\@\@\@\@\@\@\@\@\@……) みたいな感じです。 これが一つ目の質問です。 二つ目の質問は、 ([@])これなんでしたっけ? (\@)とは何か明確な違いがあると思いましたが、思い出せないし、どこに書いてあったのかも覚えてません。
質問日時: 2012/06/22 11:46 質問者: TANUKIA
ベストアンサー
3
0
-
Perlのプログラミングについて
Perlのプログラミングでつまづきました。 # ファイルから指定文字列を含む行を収集する # 入力ファイルのオープンと読み込み print( "入力ファイル名?" ); $n = <STDIN>; chomp( $n ); open( FIN, "<$n" ) or die "入力ファイルオープンエラー: $!\n"; $n = @a = <FIN>; close( FIN ); print( "$n 行読み込みました\n" ); # 行の収集 print( "検索文字列?" ); $x = <STDIN>; chomp( $x ); $ptn = $x; #指定の文字列 $x = @b = grep( /$ptn/, @a ); print( "$x 行見つかりました\n" ); # 出力ファイルのオープンと書き出し print( "出力ファイル名?" ); $y = <STDIN>; chomp( $y ); open( FOUT, ">$y" ) or die "出力ファイルオープンエラー: $!\n"; print FOUT ( $ptn, "\n" ); print FOUT ( $x, "\n" ); print FOUT ( @b ); close( FOUT ); というプログラムで実行すると C:\My Perl\pl>perl プログラムの実行.pl 入力ファイル名?sample1.txt 168 行読み込みました 検索文字列?k 45 行見つかりました 出力ファイル名?out3-24.txt 続行するには何かキーを押してください . . . となり出力ファイルの中身が表示されません。 どこを間違えているのかご指摘いただけないでしょうか?
質問日時: 2012/06/21 11:28 質問者: ralf0424
解決済
6
0
-
perlのプログラミングについて
perlのプログラミングについて詳しい解説をお願いいたします。 sub list_reverce{ my $old=shift; my&new=undef; while (my $cur=$old){ $old=$old‐>[NEXT]; $cur‐>[NEXT]=$new; } return $new } 全くの初心者です。連結リストに対してのreverseなのですが、わかりません。 ご回答お願いいたします。
質問日時: 2012/06/20 00:41 質問者: sfc-sfc
ベストアンサー
2
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【Perl】に関するコラム/記事
-
メダロット:第249話「Vol.249※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
日本古来の伝統工芸「金継ぎ」で修復した食器は前と同じように使えるの?
大切にしている食器が割れてしまったら、きっと誰もが「元に戻したい」と願うだろう。「教えて!goo」にも「割ってしまったお気に入りの食器を復活できる?」という質問があり、最適な方法について様々な意見が寄せら...
-
メダロット:第248話「Vol.248※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
タンス預金で旧紙幣を持ち続けるのは大丈夫?タンス預金のメリット・デメリットを紹介
今年7月、約20年ぶりに新紙幣が発行される。紙幣が変わることを改刷というが、この改刷には「タンス預金をあぶり出す目的があるのでは?」という見方をする人もいるという。「教えて!goo」にも「改刷で本当にタンス...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストファイルで提出とは?
-
ファイルをディレクトリ分配のプロ...
-
openした後、closeしないでプログラ...
-
perlのプログラミング 部分入れ替え...
-
Perlのエラーについてご教授くださ...
-
画像が表示でnull; this.src
-
perlプログラミング 空白行削除
-
Perlで特定文字列から特定文字列ま...
-
ラズベリーパイ初心者です。 ラズパ...
-
アルファベットに付いて質問します...
-
#!/usr/bin/perlで書きだしたCGIを...
-
perlのflock関数でロックをかけたま...
-
AI sisterとは、偽物の人ですか?
-
bashスクリプト
-
ファイルアイコンの左下に緑の□の中...
-
perlでリテラル値はメモリにどのよ...
-
perlで2次元配列をサブルーチンに...
-
Perlで時間の計算
-
perlについて
-
perlのrequireの動き方についての質問
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
openした後、closeしないでプログラ...
-
テキストファイルで提出とは?
-
INDIRECT 横に再度抽出したい
-
Perlで特定文字列から特定文字列ま...
-
perlをバージョンアップしたら、今...
-
Wallpaper Engineでおすすめの壁紙...
-
arduino の割り込み処理について
-
アルファベットに付いて質問します...
-
Strawberry Perl for Windows で Ou...
-
Perlで時間の計算
-
このファイルを開く方法で困ってい...
-
TeraPadエディターの操作方法について
-
cgiでサーバーにファイルを追加する
-
フローチャート 九九
-
LinuxにおいてのPerlのプログラムの...
-
perl 初等プログラミングについて
-
Perlのエラーについてご教授くださ...
-
こんにちは ブラケッツでプログラミ...
-
bashスクリプト
-
perlプログラミング 空白行削除
おすすめ情報