回答数
気になる
-
以下のプログラムについて教えてください
#通常休診設定 $hdayfl = "./datas/hday7.txt";open (DT,"<$hdayfl");$hday = <DT>;close (DT); #重要休診日 #$regular = "./datas/regular.txt";open (DT,"<$regular");$hday = <DT>;close (DT); @HOLIDAY = split(/\,/,$hday);$SHOWHOLIDAY = "";@TPHOL = (); foreach $p (@HOLIDAY){if(index($p,"-") > 0){push(@TPHOL,"\"$p\"");}} $SHOWHOLIDAY = join(",",@TPHOL); というプログラムで現在重要休診日をコメントアウトしてるのですが、それは通常休診日と、重要休診日の二つのファイルを同時に読み込ませたいのですが、このままコメントアウトを外すと、/datas/regular.txt" のファイルしか読み込まれなくなり、通常休診日ファイルが読み込まれなくなります 同時に、二つのファイル(通常・重要ともに)をオープンさせて読み込ませるには、何が足りないのでしょうか? ご教示くださいませ。
質問日時: 2013/12/16 19:36 質問者: sintyan0902
ベストアンサー
5
0
-
perl 計算結果をファイルへ出力したい
perl やり始めたばかりです。宜しくお願いします。 入力ファイル data.txt があるとします。 data.txt は、 123 456 789 333 555 777 以上のようなテキストファイルといたします。このファイルを 以下の様に100分の1にして出力したい。 1.23 4.56 7.89 3.33 5.55 7.77 と言うことで、この場で教えていただきました。それが、以下です。 #!/usr/bin/perl open(IN, "data.txt") or die ; @x = <IN>; close (IN); foreach $line (@x){ chomp($line); @elms = split(' ',$line); foreach $data (@elms){ print $data/100," "; } print "\n"; } おかげ様でこれはこれで上手く動きました。そこで、出力値をファイルに 書き込みたいのです。 もちろん、以下の様な方法でファイルに 書き込めるのは判っております。 計算プログラム.pl > outfile.txt しかし、上のプログラムをベースにファイルに書き込めないかと色々と 試してはみましたが、どうも上手く行きません。 どなたか教えて頂けないでしょうか? 宜しくお願い申し上げます。
質問日時: 2013/12/09 11:55 質問者: shisho241
ベストアンサー
3
0
-
perl ファイルのデータを編集したい
初めまして、perl をやり初めたばかりです。作業は Linux 上で行ってます。 あるテキストファイル data.txt があります。 data.txt の中は、以下のようになっているとします。 100 200 300 400 500 600 これを読み込んで、例えば、 1 2 3 4 5 6 以上の様に各数字を百分の一にして出力したいと思ってます。 一応、色々と調べながらプログラムを書いてはみましたが 思う様に出力されません。以下そのプログラム。 #!/usr/bin/perl open(IN, "data.txt") or die ; @x = <IN>; close (IN); $ref_x = \@x; $n_data = @x; for ($i = 0; $i< $n_data; ++$i) { $$ref_x[$i] /= 100 ; print $x[$i], " "; } print"\n"; どなたか、perl にお詳しい方教えていただけないでしょうか? 宜しくお願い申し上げます。
質問日時: 2013/12/03 15:32 質問者: shisho241
解決済
4
0
-
ベストアンサー
2
0
-
PerlでSMTP-AUTH認証をする
現在、さくらのレンタルサーバにてperlスクリプトを稼動しています。 今回、さくらのレンタルサーバのメール認証がPOP before SMTPからSMTP認証(SMTP-AUTH)に変更になりましたので、perlスクリプト内で自動メール送信させるのにNet::SMTP::TLSモジュールを利用することにしました。そこで (1)SMTPサーバー名、ポート番号、ユーザー名、パスワードを設定する (2)宛先などの必要な設定をする (3)メール内容を設定する (4)メールヘッダを設定する (5)メールを送信する という流れで現在perlスクリプトを以下のように記述しました。 #!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use Net::SMTP::TLS; use Authen::SASL; my $smtp = Net::SMTP::TLS->new($mailhost, Port => $mailport, User => $mail_username, Password => $mail_password ); $smtp->mail($from_mail); $smtp->to($tomail); $smtp->data(); $smtp->datasend($header); $smtp->datasend($message); $smtp->dataend(); $smtp->quit; 変数の値は割愛していますが、 上記のスクリプトは、POP before SMTPの時は問題なくメール送信できたのですが、サーバのメール認証がSMTP認証(SMTP-AUTH)に変更になってからは以下のようなエラーが出ます。 invalid SSL_version specified at /usr/local/perl/5.8/lib/perl5/site_perl/5.8/IO/Socket/SSL.pm line 418 何か間違いであるとか、他に必要な設定がありますでしょうか? 宜しくご教授お願いいたします。
質問日時: 2013/11/19 17:50 質問者: osama_vin_ladin
ベストアンサー
3
0
-
難問?Perlの文字列置換について
下記のプログラムをベースにして置換を行いたいです。 use File::Basename; use File::Copy; use File::Find; use File::Path; my @filelist = (); $inputfile='C:\Users\test.txt'; $outputfile='C:\Users\test_new.txt'; open (IN, $inputfile) or die "$!"; open (OUT, ">$outputfile") or die "$!"; while(<IN>) { $str = $_; if ($str =~ / ・・・・・ ・・・・・ } print OUT $str; } close (IN); close(OUT); sub wanted{ push(@filelist, $File::Find::dir."/$_") unless ($_ =~ /^\.$/); } Perlプログラムで下記の2つのソースを一括置換しようとしてます。 (1) paramIdとparamNameの文字列が同一の場合 <html:link styleClass="push" action="/numa.do" paramId="Id" paramName="Id" onclick="URL">ソース</html:link> (2) paramIdとparamNameの文字列が同一でない場合 <html:link styleClass="push" action="/numa.do" paramId="Id" paramName="Name" onclick="URL">ソース</html:link> やりたいことは ・ html:linkをs:aに変換 ・ styleClassをcssClassに変換(これはわかるのですが位置の修正がわかりません。。) ・ action="/numa.do"を/numaに変換 ・ paramIdとparamNameを文字列が同一か同一でないかで分岐処理したい。 目標は以下のように置換したいです。 (1) paramIdとparamNameの文字列が同一の場合 <s:a href="/numa?Id="%{ Id }" cssClass="push" onclick="URL">ソース</s:a> (2) paramIdとparamNameの文字列が同一でない場合 <s:a href="numa" paramId="Id" paramName="Name" cssClass="push" onclick="URL">ソース</s:a> どうしてもこの置換ができません、、誰かぜひ教えてください。 お願い致します。
質問日時: 2013/11/18 10:40 質問者: numatahitomi
ベストアンサー
3
0
-
cgiファイルについて
お世話になります。 以前、Windows Server 2003 にてWebサーバーを構築し、そこでPerlで掲示板を公開しておりました(社内イントラ)。 先月サーバーをリプレースしOSがWindows Server 2012となり、この掲示板を移行しようとしましたがうまくいきませんでした(OSが64bitだから?) ※元々掲示板は別の人が作成した為、私自身あまりよく分かっておりません(Perlも含め)。 なので、現状は掲示板を公開できずにおります。 新サーバーの方で新たに掲示板を作成すればよいのですが、以前使用していた掲示板に登録された内容も参照できるようにしたいところです。 <質問> 旧サーバーのC:\Inetpub\cgi-bin\log フォルダをみたところ、cgiファイルがたくさんあり中身を見てみると掲示板に登録されていた内容でした(1件1ファイル)。 しかし、<>0 <br> <>1などが文字列の中に混在しておりました。拡張子cgiをhtmlに書き換えて開くと、改行はされるようになりますが、<>や<>0はやはり文字列に混在した状態で表示されます。 掲示板に登録されたときのように、普通に表示するにはどうやればよいのでしょうか。 ※リプレース後、旧サーバーは色々いじってしまい掲示板も開けない状態になってます。 最終的にはその表示された内容を、何らかの方法でExcel等にコピーしそのファイルをとりあえず公開できたらと考えております。 以上、ご教授の程よろしくお願い致します。
質問日時: 2013/11/13 13:52 質問者: naoto0216
ベストアンサー
4
0
-
Perlの文字列置換について
質問です。文字列の置換を行いたいのですが、まずはソースから・・・ use File::Basename; use File::Copy; use File::Find; use File::Path; my @filelist = (); $inputfile='C:\Users\test.txt'; $outputfile='C:\Users\test_new.txt'; open (IN, $inputfile) or die "$!"; open (OUT, ">$outputfile") or die "$!"; while(<IN>) { $str = $_; if ($str =~ /html:text/) { $str =~ s/html:text/s:textfield/g; $str =~ s/property/name/; $str =~ s/styleClass/cssClass/; elsif($str =~ /html:textarea/) { $str =~ s/html:textarea/s:textarea/g; $str =~ s/property/name/; $str =~ s/style/cssStyle/; $str =~ s/styleClass/cssClass/; } print OUT $str; } close (IN); close(OUT); sub wanted{ push(@filelist, $File::Find::dir."/$_") unless ($_ =~ /^\.$/); } Perlプログラムで下記のソースを一括置換します。 <html:text property="xxx" styleClass="yyy"> <html:textarea property="abc" styleClass="def" style="ghi"> 目標は以下のように置換したいです <s:textfield name="xxx" cssClass="yyy"> <s:textarea name="abc" cssClass="def" cssStyle="ghi"> しかし、上記のプログラムを実行すると <s:textfield name="xxx" cssClass="yyy"> <s:textfieldarea name="abc" cssClass="def" style="ghi"> となってしまいます。 どこをどう直せばよいのかわからないので誰か教えてください。 お願い致します!!
質問日時: 2013/11/11 17:10 質問者: numatahitomi
ベストアンサー
1
0
-
コマンドライン引数で正規表現を指定したい
Perlでgrep -Aのようなことがしたいです。 ---------------grep.pl------------------------------- use strict; use warnings; #コマンドライン引数の確認 if(@ARGV != 3){ die "USAGE: \0 [num] [regex] [file]"; } #数字の読み込み my $num = $ARGV[0]; #正規表現の読み込み my $regex = qr/$ARGV[1]/; #ファイル名の読み込み my $file = $ARGV[2]; #該当行を保存する配列 my @lines = (); open my $fh, '<', "$file" or die "$!"; my @file = <$fh>; close $fh; for(my $i=0; $i<@file; $i++){ if($file[$i] =~ /$regex/){ push @lines, $file[$i]; for(my $j=1; $j<=$num; $j++){ if($i+$j < @file){ if($file[$i+$j] !~ /$regex/){ push @lines, $file[$i+$j]; }else{ last; } }else{ last; } } } } foreach my $item (@lines){ print $item; } ------------------------------------------------- ところが、正規表現がうまく読み込めません。 perl grep.pl 2 \d{4}\/\d{2}\d{2} test.txt などとしても、\d{4}\/\d{2}\d{2}の部分が機能しません。 コマンドライン引数から正規表現を指定するにはどうしたらよいでしょうか。
質問日時: 2013/11/09 12:48 質問者: koun
ベストアンサー
1
0
-
Perl中で teeを使っても戻り値を得たい
例えば make compile |& tee log とすると、tee のせいでmake の戻り値が得られないということに関しての相談です。 いま、perlの中で、 > $cmd = "$make compile 2>&1| tee compile.log"; > $rval = system($cmd); > if($rval){ print "Error\n"} のような使い方をしています(実際は$rval >>8 とする必要があるようです)。 上記のようにログを端末に表示し、ファイルにも落とし、かつ戻り値も利用したい、という場合、どのようにしたらよいのでしょうか。 # BASHでは echo ${PIPESTATUS[0]} で得られる、 # Perl のTee Moduleがあるなどの情報だけは発見できたのですが。。。 宜しくお願い致します。
質問日時: 2013/11/07 14:50 質問者: tk_1980024
解決済
1
0
-
Perlの文字列置換について
Perlで文字列置換の業務をすることになりした。 Struts1からStruts2のJSPのタグの変換です。 (1)html:textarea property="aaa" styleClass="bbb" (2)s:textarea name="aaa" cssClass="bbb" (1)から(2)に変換したいです。 「html:textarea」が「s:textarea」に対応しており、その属性の「property="aaa"」が「name="aaa"」に対応、 「styleClass="bbb"」が「cssClass="bbb"」に対応するといった内容です。 aaaとbbbは任意の文字列 if ($str =~ /html:textarea/ ) { $str =~ s/html:textarea/s:textarea/; $str =~ s/property=\"(.+)\"/name="$1"/; $str =~ s/styleClass=\(.+)"\"/cssClass/; というように参考書を元に作成してみたのですが、変換は行われるものの、属性のpropertyとstyleClassの順番が逆だったり、ここに記載していない他の属性を間に入れたりすると変換ができません。 どなたか教えて下さい。
質問日時: 2013/11/06 05:00 質問者: numatahitomi
ベストアンサー
3
0
-
Perlのファイル操作の置換について
Perlを利用し、ファイル内の置換操作を行いたいと思います。Perlに関して全く無知なので誰か教えてください。 変換したい内容を下に記載します。 (1)html:button value="aaa" name="bbb" c:button property="${aaa.bbb}" ↓↓ (2)html:button value="aaa" name="bbb" c:button property="${aaa.bbb}" 上記の変換ではvalueとnameがpropertyになる (3)html:button value="xxx" var="yyy" ↓↓ (4)c:button prop="xxx" id="yyy" (3)に関してはvalueとvarの間に何か他の処理が入ってもvalueとvarだけを特定し、変換できるScript文にしたいです。 言葉足らずだったらすみません。誰か教えて下さい。
質問日時: 2013/11/05 13:31 質問者: numatahitomi
ベストアンサー
1
0
-
合致する番号のデータを抽出する方法を教えてください
合致する番号のデータを抽出する方法をおしえてください perlの勉強を始めたばかりの初心者です。 下の画像のようにタブで区切られたデータです。一行で一人分のデータです。 先頭の4桁の数値がユニークで、この数値をつかって抜き出します。 0125 0251 2650 : : : 上記のように与えられた別ファイルの数値と合致する行だけを抜き出し別ファイルにはきだす方法を教えていただきたいです。 シンプルでわかりやすいもの、メモリに負担のすくないものなど複数の方法を教えていただきたいです。 説明もいただけるとありがたいです。よろしくお願いします。
質問日時: 2013/10/31 23:38 質問者: kosiba
ベストアンサー
2
0
-
複数行を順番通りに並べたい
perlを使い、複数行に渡る情報をdatファイルから読み込み、<form>~</form>を含むhtmlより 表示する順番を<select>~</select>にて指定し、またdatファイルに書き出しを行っています。 例として以下の様になります。 1(ID)<>1(並び順番)<>… 2<>5<>… 3<>4<>… 4<>2<>… 5<>3<>… この際に並び順番の指定の数字が被ってしまったまま送信を行ってしまうと、 そのdatファイルを使用する他スクリプト上で問題が発生するため、 並び順番の数字が (1・1・2・3・4・4・5の様に)被ってしまっても 再度降順に1・2・3・4・5~と数字を書き直す様にしたいと考えておりますが 非常に難しく、難儀しております。 並び順番の数字が被ってしまった場合にエラーメッセージを表示させ、 再度入力させる方が簡単なのかとも考えますが、 こちらもどの様にすれば良いのか、困っております。 どうぞ知恵をお貸しください。
質問日時: 2013/10/22 21:11 質問者: cinnamon6
ベストアンサー
3
0
-
JavaScriptのアクセス解析が動きません
当方perlの知識はないので困っております。 あるオープンソースのcgiを使っているのですが cgiファイルが呼び出すhtmlファイルにJavaScriptで記述された アクセス解析の記述をしたのですが、うまくいきません。 アドレスを見ると×××.cgiのままとなっており、表示するhtmlの中に JavaScriptの記述を埋め込んでいるという形になります。 <script type="text/javascript"> document.write("<img src=http://・・・/index.cgi?page=XXXX&r=" + document.referrer + ">"); </script> 最初に表示されるときはlogへの書き込みがなされないのですが 更新ボタンを押すと書き込みがされます。 この記述をヘッダーの中に入れたり、外部で呼び出したりいろいろやりましたがすべて同じような挙動になります。 cgiファイルの中身の最後の方はこうなっております。 my $tmpl = HTML::Template->new( die_on_bad_params => 0, filename => './html/' . $page ); # HTMLテンプレートにデータベースから読み込んだ情報を設定 $tmpl->param( dlid => $dlid, sid => $sid, message => "$message" ); #HTMLの表示 print "Content-Type: text/html\n\n"; print $tmpl->output(); この部分をいじってもダメでしょうか? また、何か対策はないでしょうか。 よろしくお願いいたします。
質問日時: 2013/10/19 10:33 質問者: hhanz10
解決済
5
0
-
アクセス解析の検索エンジンのリンク元が…
candy-cgiのAnalyzer Type1というアクセス解析を使っております。 http://www.candy-cgi.com/ 検索エンジンのリンク元の表示がされません。 yahooやgooに関してはリンク元が「none」と表示されます。 googleに関してはリンク元はgoogleのページが開きますが検索語は表示されません。 検索エンジンの仕様が変わって検索語は解析できなくなってきているのでしょうか? これはどのCGIを使っても無理なのでしょうか?
質問日時: 2013/10/18 11:09 質問者: hhanz10
解決済
1
0
-
use CGI
サンプルスクリプトのなかに use CGI qw(:cgi :form); use CGI::Carp qw(fatalsToBrowser); use Image::Magick; と書かれていたのですがuse CGI::Carp qw(fatalsToBrowser);は意味わかったのでコメントアウトしましたがuse CGI qw(:cgi :form);は何を読み込んでいるのですか?コメントアウトしても大丈夫でしょうか? イメージマジックは使うのでそのままにしてあります よろしくお願いします
質問日時: 2013/10/13 01:59 質問者: flash0
ベストアンサー
3
0
-
perlからのexcel読み込み
お世話になります。 win7 ActivePerl 5.16.3 Apache HTTP Server 2.0 perlからエクセルファイルを読み込むプログラムを作成しています。 ---- use Win32::OLE; use Win32::OLE::Const 'Microsoft Excel'; Win32::OLE->Option(Warn => 3); eval{ Win32::OLE->GetActiveObject('Excel.Application'); }; if($@){ die "Excelが使用できません。$@"; } unless (defined $Excel){ $Excel = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;}) or die "Excelが起動できません。"; } my $Book = $Excel->Workbooks->Open("Excelファイルのフルパス") or die Win32::OLE->LastError(); $Book->Close; $Excel->Quit(); ---- 現在は単純に、開いて、閉じるだけの状態です。 ワークシートが1つのエクセルファイルは問題ないのですが、 2つ以上ワークシートがあるエクセルファイルを開くと、$Book->Closeのところで戻ってこなくなります。(ブラウザで待機中の状態) 該当のエクセルファイルは、開いた状態です(直接エクセルで開いてみると編集のためロックされていますと出る)ので、Openは出来ているような気がします。 $Book->Closeを書かなければ下に流れていきますが、 プロセスが残ってしまいます。 ワークシートが1つのときと、複数のときで違いがあるのでしょうか?
質問日時: 2013/10/09 10:13 質問者: mm666
ベストアンサー
3
0
-
表示の負荷
javascriptからcgiを呼び出して表示した場合、何個も同じファイルを呼び出すと以下の場合3回オーバーヘッドが発生して負荷がかかりますか?それとも同じファイルだから何回よびだしても1回の負荷ですみますか? <script type="text/javascript" src="hoge.cgi?new=1"></script> <script type="text/javascript" src="hoge.cgi?new=2"></script> <script type="text/javascript" src="hoge.cgi?new=3"></script> 質問2 phpで同じようにすると、1回のオーバーヘッドで済むのですか?
質問日時: 2013/10/06 14:06 質問者: flash0
ベストアンサー
1
0
-
perlを使ったファイルの入出力について
perl 初心者です。 perl を使ってデータ整理を試みていますが、方法がわからなくて困っています。 やりたい操作は、 1、ディレクトリ内にある特定の拡張子をもつすべてのデータファイルを読み込む 2、データソート 3、データファイル名を変更せずに、ソートしたデータを出力する 例 ディレクトリに以下のデータファイルがあるとします aaa.data bbb.data ccc.data : zzz.data これらのデータファイルをすべて読み込み、中身を整理した後に aaa.txt bbb.txt ccc.txt : zzz.txt となるように、それぞれのデータの名前を変更せずに出力したいと思っています。 スクリプトのサンプルなんかがあればありがたいです。
質問日時: 2013/09/30 10:52 質問者: longren930
ベストアンサー
6
0
-
CGIに関して (Miniりすと)
下記URLにて入手可能なCGIを設置しましたが、 画像アップロード機能でpng形式だけアップロードできません。 以下のエラーメッセージが表示されます。 「ERROR! - アップロードできないファイル形式です」 CGI本体の設定項目も見つけられません。 アップロードできる形式とはあるのですが・・・。 imgフォルダも属性値777に設定してあります。 その他は問題なく動きます。 当方なにぶんズブのド素人で恐縮ですが問題を解りやすく ご指摘いただける方はいらっしゃいませんでしょうか? 何卒宜しくお願い申し上げます。 CGI配布場所 http://www.minicgi.net/cgi2/list.html
質問日時: 2013/09/29 06:06 質問者: Yelm750507
解決済
3
0
-
perlでdb(mysql)に接続
perlでdb(mysql)に接続し、取得したデータを 表示させるというようなことをしたいのですが、うまく いきません。 ファイル名test.cgi mysqlのバージョンは 5.0.45で 記述は以下です。 #!/usr/bin/perl use DBI; my $dbh = DBI->connect("DBI:mysql:database, "userid", "password"); my $sth = $dbh->prepare('SELECT * FROM tablename'); $sth->execute; print "Content-Type: text/plain\n\n"; print "\n"; while(my @row = $sth->fetchrow_array) { print "$row[0]:$row[1]\n"; } $sth->finish(); $dbh->disconnect(); exit; ブラウザで確認すると何も表示されず、ログとして 以下のエラーが確認できます。 DBD::mysql::st execute failed: Table 'database.tablename' doesn't exist at test.cgi line 8. DBD::mysql::st fetchrow_array failed: fetch() without execute() at test.cgi line 11. my $sth = $dbh->prepare('SELECT * FROM tablename'); で指定したテーブルは存在しておりますし、SQL文の記述も 問題ないと思われます。 また、ファイルのパーミッションは705(755でも同様の結果)です。 perl初心者のため、どこが問題なのか検討がつきません。 ご助言いただきたく存じます。 よろしくお願いいたします!
質問日時: 2013/09/25 12:33 質問者: Reptilez
ベストアンサー
2
0
-
特殊文字入りの文字結合を、変数にできますか?
●perl $seireki = "2013"; # 変数 #------------- $123 = "$seireki"; # 代入 $nengou = "$abc"."$123"; # 結合 #------------- $abc2013 = <<"EOF"; あいうえお EOF $abc2014 = <<"EOF"; かきくけこ EOF #------------- ●html <strong>$nengou</strong> ーーーーーーーーーーーーーーーーーーー 上記、htmlの$nengouに あいうえお と表示したいのですが、 2013 と表示されてしまいます。 解決法として、 $は特殊文字なので、エスケープシーケンス(¥$)をして、 $nengou = "¥$abc"."123"; にしたら、 htmlの中の$nengouは、$abc2013 と表示されてしまいます。 どのようにしたら、 特殊文字入りの文字結合を、変数として扱うようにするのでしょうか? いろいろ試してみてもどうしても出来ません。 どなたか解決していただけますと、ありがたいです。
質問日時: 2013/09/24 23:05 質問者: 1SYUN1
ベストアンサー
2
0
-
PerlのImage::Magickのフォントにつ
Image::Magickで画像に文字を書こうと思っています。 レンタルサーバーを使うので一定の制限の下でCGIを作成するとします。 ・フォントはウィンドウズのフォントでも可能なのでしょうか? ・フォントはサーバーに単にアップロード任意のディレクトリのパスを指定しても使えるものなのでしょうか? よろしくお願いいたします。
質問日時: 2013/09/21 21:46 質問者: bakusui
解決済
1
0
-
SQL構文でカラム名をハッシュのキーに
PerlをDBIでMySQLに接続しています。 MySQLの“country”テーブルに“name_en”カラムがあり、これをハッシュのキーにして、 下記構文で“name_jp”カラムに文字列を挿入しようとしたのですが、 ----------------------------------------- $sth = $dbh -> prepare ("update country set name_jp = \'$name{name_en}\' where id between 1379 and 1396"); ----------------------------------------- 結果は何も入りませんでした。 カラム名をハッシュのキーにするには、どう書けばいいのでしょうか? 宜しくお願いします。
質問日時: 2013/09/18 15:28 質問者: gellan
ベストアンサー
9
0
-
Perlで配列に設定した値が関数に引き継がれない。
レンタルサーバ上でPerlのプログラムを作成しているの ですが、動作でよくわからないことがあるので、教えてください。 Perlのプログラムがあるサーバで動作していて、それを 他のサーバに移したのですが、正しく動作しなくなりました。 調べてみると、関数を呼んでいるところで配列の値がうまく 引き継がれていませんでした。 呼び出しの処理は次の通りです。 ●呼び出し元 ret= &SubModule(*DATA1); ●呼び出し先 sub SubModule { local(*DATA1) = @_ if @_; while(($key, $value) = each(%DATA1)) { #配列に対する処理 } #以下省略 このような処理の時に呼び出し元では配列DATA1に 値が入っているのに呼び出し先のSubModuleでは 空になりwhile文を素通りして「#配列に対する処理」 を実行しません。 いろいろ試しているうちに、呼び出し先に1つ余計な whileを入れると配列DATA1に値が入ってきました。 つまり次のように変更すると、うまくいきました。 呼び出し先 sub SubModule { local(*DATA1) = @_ if @_; while(($key, $value) = each(%DATA1)) { } while(($key, $value) = each(%DATA1)) { #配列に対する処理 } #以下省略 こうすると 「#配列に対する処理」が実行されました。 教えていただきたいのは以下の2点です。 (1)元のサーバでは問題なく動作していたのですが、 別のサーバでは、配列の引数がうまく引き継がれ なくなりました。どういう原因が考えられるでしょうか。 処理上何かまずいところがあるのでしょうか。 (2)呼び出し先でwhile文を一つ入れることで、配列の 値が参照できるようになったのですが、これは なぜでしょうか。 よろしくお願いします。
質問日時: 2013/09/18 13:20 質問者: tomtomoo
ベストアンサー
2
0
-
CGIが動かない
CGIに関してです。 下記にて入手可能なフリーのCGIが動かなくて困ってます。 詳しい友人曰くソースが古すぎるのではないか? ということでした。 当方所有のサーバーはロリポップレンタルサーバーで もちろんCGI設置可能です。 過去にも何点かフリーのCGIを動かしたことはあります。 本当にCGI本体の問題なのか検証できる方はいらっしゃいませんでしょうか? CGI本体: http://www.minicgi.net/cgi2/list.html 紹介サイト(サンプル2) http://www.minicgi.net/cgi2/
質問日時: 2013/09/15 20:02 質問者: Yelm750507
ベストアンサー
6
0
-
perlを使った文字列のエンコードについて
http://www.tagindex.com/tool/url.htmlにあるようなURLエンコードの処理を行いたいのですが、ソースはどのようになりますでしょうか? 下記のようなものできるのかと思いましたが、「テスト」の文字列ですと、「%83e%83X%83g」と表示されてほしいのが、「?e?X?g」となってしまいます。 お分かりの方がおられるようでしたら、ぜひ教えてください。 $str='テスト'; use Encode 'encode'; $str = encode('sjis', $str); print "$str";
質問日時: 2013/09/13 12:23 質問者: egypt
ベストアンサー
1
0
-
[Perl]Shift-JISのXMLを解析する場
行き詰まってしまったので教えて下さい。 <やりたいこと> とあるAPIからXMLファイルを取得し、解析して出力する、ということをやっているのですが、元のXMLがShift-JISでエンコーディングされており、これをUTF-8に変換して出力しようとしています。 <問題> XMLを取得して解析、取り出したいパラメータが出力できるようにはなったのですが、文字のエンコーディングが上手く行っていないためか、文字化けしてしまいます。 <元のXML> <?xml version="1.0" encoding="Shift_JIS"?> <test> <prod count=3> <record> <code>アイウエ</code> </record> <record> <code>カキクケ-</code> </record> <record> <code>ABC</code> </record> </prod> </test> <XML解析用のコード> #!usr/bin/perl use utf8; use Encode qw/ from_to encode decode /; use Encode::Guess qw/ euc-jp shiftjis 7bit-jis /; use LWP::UserAgent; use XML::Simple; use Data::Dumper; #--XML取得部分省略 #--XMLはgetで$xmlに格納 $from = guess_encoding($xml)->name; &from_to($xml,$from,"utf8"); $XML::Simple::PREFFERRED_PARSER = 'XML::SAX::PurePerl'; $xs = new XML::Simple(); $ref = $xs->XMLin($xml); $xml =~ s/<\?.*\?>//; for($i=0;$i<=$#{$ref->{'test'}->{'prod'}->{'record'}};$i++){ $name = $ref->{'test'}->{'prod'}->{'record'}[$i]->{'code'}; $name = encode('utf-8',$name); print "$i : $name\n"; } <結果> 黒ダイヤに?文字で文字化けして出力される。 どなたか原因がお分かりになりますでしょうか。 よろしくお願いいたします。
質問日時: 2013/09/09 11:36 質問者: amnet2012
解決済
3
0
-
1キロバイト文字の削除について
例えばsijisの「、」を削除しようと思い $body =~ s/\xa4//g; とすると\xa4を含む「う」などにも作用し、\xa4を削除してしまいます。 そこで2キロバイトの文字には作用しないようにするにはどうしたらいいか考え 「う」などがあった際には\xa4を削除しないようにしたのですが その場合、例えば「う」と「、」の両方があった時に「、」を削除しなくなってしまいます。 1キロバイトの文字を削除しても2キロバイトの文字には影響しない 何かいいアイデアはないでしょうか?
質問日時: 2013/08/22 10:01 質問者: masa-25
解決済
8
0
-
シフトJISにおけるマッチング
シフトJIS使用時の日本語のマッチングにおいて 正確なマッチングができないことは分かっているのですが いわゆるダメ文字が含まれていないにもかかわらず マッチングがおかしいことがあります。 ちょう、きゅうなど最後「~う」で終わる言葉のマッチングさせると マッチングするはずがしないのです。 この理由は何が考えられますか? UTF-8に変換してマッチングさせればいいのは分かっているのですが どうしてなのかという理由が知りたいので投稿させていただきました。
質問日時: 2013/08/21 13:09 質問者: masa-25
ベストアンサー
1
0
-
flockについて
ファイルを読み書きする場合に使用するflockですが、closeする前に別ファイルのflockは使用できるのでしょうか? テストしてみたところ、うまくいってるような気もするのですが、確証が持てないので質問させていただきました。 例) $file1="file1.txt"; $file2="file2.txt"; open(OUT,"+<$file") flock(OUT,2); $count1=<OUT>; open(DAT,"<$file2") flock(DAT,1); $count2=<DAT>; close DAT; $count=$count1+$count2; truncate(OUT,0); seek(OUT,0,0); print OUT "$count "; close OUT; ちょっとあえて複雑な書き方としてみましたが、上記のようにflockを使ってる最中に別ファイルのflockを使用することは出来ますでしょうか? 参考URLでも結構ですので、どなたかよろしくお願いいたします。
質問日時: 2013/08/21 01:01 質問者: hana43
ベストアンサー
2
0
-
LWPでヘッダー情報をあらかじめ取得したい
例えば、下記のようなスクリプトの場合、一度画像が保存された後、ファイルサイズをを抜き出すようになります。 ダウンロード前に、ファイルサイズをあらかじめ知りたいのですがどのようにしたら良いでしょうか? use strict; my $url = "http://img.www.goo.ne.jp/img/gh_logo.png"; use LWP::UserAgent; use HTTP::Cookies; use HTTP::Request; use HTTP::Headers; my $req = HTTP::Request->new(GET => $url); my $ua = LWP::UserAgent->new; $ua->agent( 'Mozilla/5.0 (Windows NT 6.0; rv:12.0)' ); $ua->timeout('10'); $ua->max_redirect(); $ua->cookie_jar( HTTP::Cookies->new( file => '', autosave => 1, )); my $res = $ua->request($req, "save.png"); my $file_size = $res->header("content-length"); print $file_size;
質問日時: 2013/08/14 18:23 質問者: tanaka_meio
ベストアンサー
3
0
-
perlで改行以降を削除
$messageの中に○○○○<br>△△△△<br>□□□□の文字列が入っています。 最初の<br>以降を削除して○○○○だけを取り出すにはどうしたらよいですか? $message2 = "$messageの改行以降を消す" の方法を教えてください!
質問日時: 2013/08/07 13:34 質問者: master-3rd
ベストアンサー
2
0
-
リダイレクトのhtaccessを置くと403エラー
perlで書いたCGIファイルがあるのですが、スマホ用のリダイレクトhtaccessファイルをトップディレクトリに置いた所、CGIのページが403エラーになってしまいました。 .htaccessファイルを外すと正常に表示するので、原因は.htaccessなのですが、理由が思い当たりません。 CGIのソースは出せないですが、お問い合せフォーム用のCGIです。 何かお気づきの点がありましたら助言お願い致します。 ● .htaccess(トップディレクトリに設置) <IfModule mod_rewrite.c> RewriteEngine on RewriteCond %{REQUEST_URI} !/sp/ RewriteCond %{HTTP_USER_AGENT} (iPhone|Android.*Mobile|Windows.*Phone) RewriteRule ^(.*)$ sp/$1 [R] RewriteBase / RewriteCond %{REQUEST_URI} /sp/ RewriteCond %{HTTP_USER_AGENT} !(iPhone|Android.*Mobile|Windows.*Phone) RewriteRule ^sp/(.*)$ $1 [R] RewriteBase / </IfModule> ● ディレクトリ構造 /index.html・・・トップページ /.htaccess・・・上記内容 /contact/all/index.cgi・・・403エラーになるCGI /contact/all/.htaccess・・・「Options ExecCGI」のみ記述 /sp/・・・スマホ用のリダイレクト先ディレクトリ(以下略)
質問日時: 2013/07/26 18:10 質問者: umioyo
解決済
1
0
-
perl tr での変数の使い方
tr を使って文字列を置換する時に 検索文字列や置換後の文字列のリストとして変数を使いたいのですがうまくできません。 tr はコンパイル時に変数を展開するので eval を使わないといけないという記述を見つけたのですが そこから先のやり方がわかりません。 eval "tr/$ab/$cd/"; のように書くというような記述までは見つかるのですけれど これを使ってどうすれば変換ができるのかわからないのです。 どなたか教えてください。 (初心者でごめんなさい。eval とか全然使い方がわかりません…)
質問日時: 2013/07/23 20:09 質問者: oshiete1999
ベストアンサー
1
0
-
Perl:CGI.pm:入力ボックスのクリア?
お世話になります。 下のサンプルコードは、CGI.pmのperldocに載っていたサンプルを改造したものです。 #! /usr/bin/perl # # simple.cgi -- CGIフォームの実験 use CGI qw/:standard/; use CGI::Carp qw/fatalsToBrowser warningsToBrowser/; print header( -expires=>'-1d', -pragma => 'no-cache', 'Cache-Control' => 'no-cache'), start_html('Simple Script'), h1('Simple Script'), start_form, "What's your name? ",textfield(-name=>'name', -default=>""),p, submit, end_form, hr,"\n"; if (param) { print "Your name is ",em(param('name')),p, } print end_html; 改造点はheader関数にexpires、pragma、Cache-Controlを入れてみたこと、 textfieldに-default=>""を入れてみたこと、 UIと表示項目を1つに減らしたことです。 やりたいのは、上のテキストボックスに名前を入れて、submitを押した瞬間に、上のtextboxをクリアすることです。 ぼくの理解では、最初に上記のCGIがあるURLにアクセスしたときにはプログラムは全部走ってしまう、paramがゼロだからそのときは入力表示を出すだけ、 実行を押した後もう一度このプログラムは最初から走る、paramに値があるから出力が表示される、というものです。 となれば、2度目に(入力を得て)実行されるときは、headerのcache関係の項目や、textfieldのdefaultが効いて空白になりそうな気がしますが、現実には最初に入った値がそのまま動き続けます。 これをPerl側で空白になるように制御できるでしょうか。 サーバーはFreeBSD(レンタル)、Perlは5.12、WebサーバーはApacheです。 クライアントはWindows7でIE9、Firefox22、Chrome28を使っています。 よろしくお願いします。
質問日時: 2013/07/17 12:04 質問者: TYWalker
ベストアンサー
2
0
-
perlでの別ファイルへの出力について
perlでファイルAから読み出した値を別ファイルBに出力させたいです。 イメージとしては -------------------------------- open(FILE,ファイルA); while(<FILE>){ my $line = "$_"; system("ls -l $line"); #←ここの結果を1行ずつファイルBに出力したい } close(FILE) --------------------------------- 上記の場合どのように記述すれば良いのでしょうか? bashでは簡単にかけるのですが、 業務上perlを使用する必要がある為こまっております…。
質問日時: 2013/07/12 18:17 質問者: cha_katekin
ベストアンサー
2
0
-
for文を指定回数回したい
for $each(@man){ 処理; } これを下記のように指定回数回したいのですが、どうすればよいでしょうか? for ($j = 0; $j < 7; $j++){ 処理; }
質問日時: 2013/07/10 18:11 質問者: Scotty_99
ベストアンサー
2
0
-
読込んだファイルの指定行をカンマ区切りで出力したい
---あああああああああああああ---------------- いいいいいいいいいい ううううううううううううう [2013/07/10 00:00:00] ええええ [2013/07/10 00:00:01] おおおお 上記のようなデータが複数格納されたファイルを読み込み、出力が ---あああああああああああああ---------------- 2013/07/10 00:00:00,ええええ 2013/07/10 00:00:01,おおおお となるようなプログラムをperlで実現させたいと考えていますがうまくいきません。 文字列のマッチング等試してみましたが期待する結果が得られませんでした。 ご教授よろしくお願いします。
質問日時: 2013/07/10 13:56 質問者: atwebhgtdre
ベストアンサー
2
0
-
Perl:ファイルハンドルをスカラー変数にすると変
お世話になります。 Perlの書き方について教えてください。 Perlのファイルハンドルで、昔はINやOUTやFILEのようにベアワード(裸のワード)を使っていたと思います。 ★(プログラム1) #! /bin/perl # # fh_bareword.pl use strict; use warnings; open IN, '<', 'in.txt'; open OUT, '>', 'out.txt'; while (<IN>) { print OUT; } close IN; close OUT; ★(実行例) C:\Perl\perl>type in.txt This is a pen. That is a book. C:\Perl\perl>fh_bareword.pl C:\Perl\perl>type out.txt This is a pen. That is a book. ★★★ ところが、これだとIN、OUTがグローバル名になってしまい、他のモジュールと衝突することがあるということで、myつきのスカラー変数にした方が良いと言われました。 それで、以下のように書いてみましたが、想定のように動作しません。 ★(プログラム2) #! /bin/perl # # fh_scalar.pl use strict; use warnings; open my $in, '<', 'in.txt'; open my $out, '>', 'out.txt'; while (<$in>) { print $out; } close $in; close $out; ★(実行例) C:\Perl\perl>fh_scalar.pl GLOB(0x146ea34)GLOB(0x146ea34) C:\Perl\perl>dir out.txt ドライブ C のボリューム ラベルは eMachines です ボリューム シリアル番号は 89C9-F870 です C:\Perl\perl のディレクトリ 2013/07/09 23:05 0 out.txt 1 個のファイル 0 バイト 0 個のディレクトリ 23,226,032,128 バイトの空き領域 ★★★ たぶん print $out; の部分で、私はファイルハンドル$outに$_を表示してくださいと意図していたのですが、「ファイルハンドルSTDOUTに$outを表示してください」という意図に受け取られたらしく、上記のようにGLOBのリファレンス?が表示されてしまいました。 print $out $_; と書くと、確かに正しく表示されますが、これが正しい書き方なのでしょうか。 printの後ろに来るのは出力する文字列ではなくファイルハンドルだと、正しく判断してもらえるもっと美しい書き方はあるのでしょうか。 よろしくお願いします。
質問日時: 2013/07/09 23:15 質問者: TYWalker
ベストアンサー
2
0
-
Perl:Unicodeプロパティ作れない
お世話になります。 Unicodeの文字プロパティの使い方を学ぶために、以下のようなスクリプトをUTF-8で保存しました。 ============ #! /bin/perl # # utf8_unireg.pl use 5.010; use strict; use warnings; use utf8; binmode STDOUT, ":encoding(shift_jis)"; my $str = "a:b:c:"; say join "|", ($str =~ /\p{ASCII}/g); say join "|", ($str =~ /\p{AsciiAlpha}/g); sub AsciiAlpha { return <<END; 0041005A# A-Z 0061007A# a-z END } ============ 実行するとこうなります。 ============ C:\Perl\perl>utf8_unireg2.pl a|:|b|:|c|: Can't find Unicode property definition "AsciiAlpha" at C:\Perl\perl\utf8_unireg2.pl line 14. ============ \p{AsciiAlpha}というプロパティの作成に失敗しているようです。。 なぜか分かりますでしょうか? よろしくお願いします。
質問日時: 2013/07/07 10:49 質問者: TYWalker
ベストアンサー
2
0
-
while(<ハンドラ>) {} で行数をカウント
こんにちは。 掲示板をperlで作るという課題に取り組んでいるのですが、下記の部分の 動きだけがどうしても期待する動作がえられず、困っています。 なにか試した方が良い事がありましたら、ご指摘いただけないでしょうか。 プログラムの説明: POST されたコメントを data.dat に追記していくプログラムです。 ファイルハンドラから一行づつ読み込んで、行数を $count でカウントし、 『X行目&&コメント』のようにコメントの先頭に行数を表示します。 #!/usr/bin/perl $myfile = 'data.dat'; (省略) sub piyo{ open(HOGE, ">> $myfile"); flock(HOGE, 2); my $count = 1; while(<HOGE>){ $count++; }; print HOGE "$count行目&&in{'comment'}\n"; close(HOGE); }; data.dat の期待する結果は下記です。 1行目&&コメント 2行目&&コメント 3行目&&コメント ..... 実際に data.dat に書き込まれた結果は下記でした。 1行目&&コメント 1行目&&コメント 1行目&&コメント ..... 試した事1: open(HOGE, ">> $myfile"); を open(HOGE, "+>> $myfile"); した。 試した事2: while(<HOGE>){ $count = $count + 1; }; とした。 どちらでも結果に違いがありませんでした。 よろしくお願いします。
質問日時: 2013/07/04 21:55 質問者: jussmen_1979
ベストアンサー
3
0
-
外部ファイルからの指定行と指定文字の削除
perlで、外部のCSVファイル(01_01.csv)を読み込み、「先頭の9行」とその行以降の「先頭9文字」を削除したものを [01_01_out.csv]として保存したいのですがどのようにしたらいいのでしょうか。 ご回答、よろしくお願い致します。 例) 読込ファイル:01_01.csv ---------------------------------------- AAA BBB CCC DDD EEE FFF GGG HHH 00:00:00,1 00:01:00,2 00:02:00,3 00:03:00,4 00:04:00,5 00:05:00,6 (略) 10:00:00,101 10:01:00,102 10:02:00,103 10:03:00,104 10:04:00,105 10:05:00,106 ---------------------------------------- 出力ファイル:01_01_out.csv ---------------------------------------- 1 2 3 4 5 6 (略) 101 102 103 104 105 106 ----------------------------------------
質問日時: 2013/07/04 10:52 質問者: pming
解決済
4
0
-
ActivePerlについて
ローカルPC内で動くCGIで 特定の(固定)URLのファイルをダウンロードするようなものを作りたいのですが どのように記述すればよいでしょうか? 参考になるHPなどありましたら教えてください。
質問日時: 2013/07/04 09:53 質問者: dyo
解決済
1
0
-
「?」が含まれるマッチについて
perlの文字マッチについて「?」が含まれる場合のマッチさせる方法について教えていただきたいです。 例) $hoge="papa?no=1,mama?no=2,cat=?no=3"; $hogehoge="cat=?no=3"; $hoge =~ m/$hogehoge/i; 上記の場合、文字内に「?」がある為にマッチしません。メタ文字として判断されているのでしょうか…。 この場合、マッチさせるにはどのような方法がありますでしょうか。 一度、「?」を違う文字に変換すれば出来るのではないかと思いますが、そのままの形でのマッチを求めています。 どうかよろしくお願いいたします。
質問日時: 2013/07/02 01:04 質問者: hana43
ベストアンサー
3
0
-
perl 積算の仕方が解らない
フォートランで作られたデータを、perlで作り直そうと始めました。 なんとか、perlの中で値の計算までは出来たのですが、 下記データの2フィールド目に対して積算の仕方が解りません。 awkでは、awk '{SUM += $2;printf("%s %10.4e\n", $1, SUM)}'でできましたが、 perlで中ではどのようにするのか? 1998-04-20T16:16:00 6.533078e+05 1998-05-01T01:59:00 1.501809e+06 1998-05-05T07:20:00 7.202719e+05 1998-05-05T07:24:00 9.799618e+05 ついでに、御存じでしたら、御教授ください。 awkとperlの計算結果は全く同じにでましたが、フォートランの結果は 下記のように微妙に違ってしまう処がございます。 それは、どうしてでしょうか? awk,perl の結果 フォートランの結果 フォートランの7ケタの結果 7.202719e+05 7.202718e+05 7.2027181e+05 9.799618e+05 9.799616e+05 9.7996169e+05 以上 よろしくお願い致します。
質問日時: 2013/06/30 13:41 質問者: nnirosan
ベストアンサー
4
0
-
Perlの良書を探しています。
こんにちは。 私は普段はCでゴルフを楽しんでいるのですが、そろそろPerlも学ぼうと思っています。 基礎的な文法等はググれば幾らでも出てくるので、マニアックな書籍を求めています。 何かおすすめの本などありますか?
質問日時: 2013/06/29 14:09 質問者: pixie-grasper
ベストアンサー
1
0
-
Perl でメールを100通送る
Perl でメールを100通送るプログラムを作りました。ただし、これは実験用なので 「自分から自分へメールを100通おくる」 というプログラムです。 for ( my $i = 0; $i < 100; $i++ ) { $body_text{subject} = $i . ":test"; &sub::mail_push( $cf{server}, $cf{account}, $cf{password}, $cf{port}, $cf{form_mail}, $mail_add , $body_text{subject}, $body_text{body_text} ); } &sub::mail_pushというサブルーチンはメールを送信するために自分が作ったものです。 うまく100通おくれたので良かったのですが、ここでメールサーバーに溜まっているメールをみて疑問が2点浮かびました。 1)このプログラムでメールタイトルは 0 ~ 99 までの連番が頭につき、その順にメールが送られ(るハズ?)ます。しかしメールサーバー上では連番どおりにメールは届いておらずバラバラになって並んでいます。これはなぜでしょうか? 2)単純になにかのミスだと思うのですが、これは本日(6/17)動かしているのですが、メールの日付は(6/18)になっています。なにかサーバー上のミスでしょうか?ちなみにサーバーはXREAを利用しています。
質問日時: 2013/06/17 17:48 質問者: nakisan2011_12
ベストアンサー
2
0
-
Perlの多重起動を禁止したい
main_01.plというプログラムがあります。 これは10分毎にバッチファイルから起動の命令が下ります。ただしプログラムの処理によっては10分以上かかることがあります。 この時、main_01.pl がすでに起動していた場合、main_01.pl はすぐに exit; になるように組みたいのです。僕が考えた方法は、あるテキストファイルにロックをかけ、そのファイルがロック中であるならばプログラムは処理を行わずすぐに終了する、といった感じです。 =============================== # タイムアウト処理 my $timeout = 5; # 排他処理 my $lockfile="lock.txt"; # 多重起動停止 (ここに $lockfile が書き込めなかったらmain_01.plは別に起動していることになるので起動しない。) # 排他処理開始 open(LOCK,"$lockfile"); flock(LOCK,2); # 処理開始 eval { # タイムアウト local $SIG{ALRM} = sub { die "alarm\n" }; alarm( $timeout ); # プログラムスタート print "\n◆スタート\n\n"; sleep(4); # プログラム終了 print "\n◆終わりました。\n\n"; }; # タイムアウト処理 if ( $@ ) { # タイムアウト print "\nタイムアウトしました。TIMEOUT= $timeout \n"; } else { # タイムアウトせずに正常終了 print "\n正常終了しました。\n"; } # 排他処理終了 close(LOCK); exit;
質問日時: 2013/06/17 16:39 質問者: nakisan2011_12
ベストアンサー
2
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【Perl】に関するコラム/記事
-
フキノトウ、ワラビ、タラノメなどの「山菜」を若い人は知らない?食べたことない?
春の訪れと共に、八百屋やスーパーには様々な種類の野菜が並ぶ。春野菜といって思い浮かぶのは、「春キャベツ」や「春タマネギ」という人が多いだろう。一方で、「フキノトウ」「ワラビ」「タラノメ」など、かつて春...
-
摘発相次ぐ「モペット」法律的な問題点を弁護士に聞いてみた
電動モーターを搭載し、走行可能な二輪車である「モペット」に関する交通違反が増加しているため、警視庁は10日、東京の渋谷で取り締まりを行った。警視庁によると、昨年、東京都内で「モペット」と呼ばれる電動モー...
-
メダロット:第238話「Vol.238※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
寒暖差疲労の予防・改善には「入浴」がおすすめ?ポイントと効果を専門家にきいてみた
季節の変わり目になると、体調を崩す人が少なくない。その原因のひとつは「寒暖差疲労」だといわれている。一日の気温差が7℃以上になると、体温調節を担う自律神経が過剰に働くので、冷え症、肩こり、頭痛、全身倦怠...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
perlをバージョンアップしたら、今...
-
INDIRECT 横に再度抽出したい
-
Strawberry Perl for Windows で Ou...
-
openした後、closeしないでプログラ...
-
テキストファイルで提出とは?
-
Perlのエラーについてご教授くださ...
-
perlのrequireの動き方についての質問
-
Perl の外部モジュールの利用方法
-
Windows10においての『Perl』のプロ...
-
Perlで特定文字列から特定文字列ま...
-
Perlでsprintf("%02d",$month)って...
-
フローチャート 九九
-
perl LWPでURLにアクセスした時にデ...
-
Perlで、「が」を、「が」...
-
アルファベットに付いて質問します...
-
#!/usr/bin/perlで書きだしたCGIを...
-
perlのflock関数でロックをかけたま...
-
AI sisterとは、偽物の人ですか?
-
bashスクリプト
-
ファイルアイコンの左下に緑の□の中...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
INDIRECT 横に再度抽出したい
-
perlをバージョンアップしたら、今...
-
openした後、closeしないでプログラ...
-
Perlで特定文字列から特定文字列ま...
-
Wallpaper Engineでおすすめの壁紙...
-
Perlのエラーについてご教授くださ...
-
アルファベットに付いて質問します...
-
Strawberry Perl for Windows で Ou...
-
bashスクリプト
-
テキストファイルで提出とは?
-
Perl の外部モジュールの利用方法
-
#!/usr/bin/perlで書きだしたCGIを...
-
Windows10においての『Perl』のプロ...
-
perlのflock関数でロックをかけたま...
-
perlで2次元配列をサブルーチンに...
-
Perlで時間の計算
-
perlのrequireの動き方についての質問
-
画像が表示でnull; this.src
-
ターミナルで特定の文字と文字の間...
-
英数文字列のうちの数値を4桁に成形
おすすめ情報