回答数
気になる
-
{ブロック}の外でのみ use utf8; したいのだが・・・
連投申し訳ありません。 「まるごとPerl」(2006年9月、インプレス刊)という本の「まるごとEncode」という記事に従ってEncodeの勉強をしています。 原記事は UNIX(というか端末コードをUTF-8に出来る環境)ですが、それをWindowsに移植しようとして苦労しています。 #! perl # list3 -- UTF-8モードとバイトモードの切り替え # インデントを表現するために全角空白を使っています use strict; use warnings; binmode STDOUT, ':encoding(cp932)'; # 追加 # ブロックの外側ではUTF-8文字単位で解釈される use utf8; { # ブロックの外側ではバイトモードが強制される use bytes; my $text = '漢字、カタカナ、ひらがなの混じったtext'; print Encode::decode('UTF-8', substr($text, 9, 12)); # カタカナと表示されたい } my $text = '漢字、カタカナ、ひらがなの混じったtext'; print substr($text, 3, 4); # カタカナと表示されたい __END__ というプログラムを実行すると C:\>list3.pl カタカナカタカナ と表示されてほしいのですが、 C:\>list3.pl Cannot decode string with wide characters at C:/strawberry/perl/lib/Encode.pm li ne 174. と表示されます。 use utf8 を後ろにズラして #! perl # list3 -- UTF-8モードとバイトモードの切り替え # インデントを表現するために全角空白を使っています use strict; use warnings; binmode STDOUT, ':encoding(cp932)'; # 追加 { # ブロックの外側ではバイトモードが強制される use bytes; my $text = '漢字、カタカナ、ひらがなの混じったtext'; print Encode::decode('UTF-8', substr($text, 9, 12)); # カタカナと表示されたい } # ブロックの外側ではUTF-8文字単位で解釈される use utf8; # 移動 my $text = '漢字、カタカナ、ひらがなの混じったtext'; print substr($text, 3, 4); # カタカナと表示されたい __END__ とするとうまく動いて C:\>list3.pl カタカナカタカナ と表示されます。 #! perl # list3 -- UTF-8モードとバイトモードの切り替え # インデントを表現するために全角空白を使っています use strict; use warnings; binmode STDOUT, ':encoding(cp932)'; # 追加 # ブロックの外側ではUTF-8文字単位で解釈される use utf8; my $text = '漢字、カタカナ、ひらがなの混じったtext'; # 移動 print substr($text, 3, 4); # カタカナと表示されたい # 移動 { # ブロックの外側ではバイトモードが強制される use bytes; my $text = '漢字、カタカナ、ひらがなの混じったtext'; print Encode::decode('UTF-8', substr($text, 9, 12)); # カタカナと表示されたい } __END__ のようにするとやはり最初と同じエラーになりますが、 #! perl # list3 -- UTF-8モードとバイトモードの切り替え # インデントを表現するために全角空白を使っています use strict; use warnings; binmode STDOUT, ':encoding(cp932)'; # 追加 # ブロックの外側ではUTF-8文字単位で解釈される use utf8; my $text = '漢字、カタカナ、ひらがなの混じったtext'; # 移動 print substr($text, 3, 4); # カタカナと表示されたい # 移動 no utf8; # 追加 { # ブロックの外側ではバイトモードが強制される use bytes; my $text = '漢字、カタカナ、ひらがなの混じったtext'; print Encode::decode('UTF-8', substr($text, 9, 12)); # カタカナと表示されたい } __END__ だと大丈夫です。 結果として、ブロックの外で use utf8;、中では use bytes; という記事の著者の意図通りに動作しないようで、ブロックの中まで use utf8; が効いているようです・・・。 これは Perl の実装が変わったのでしょうか。 使用しているのは Windows XP Home SP3+Strawberry Perl v5.10.0 です。
質問日時: 2009/11/07 09:24 質問者: TYWalker
ベストアンサー
8
0
-
正規表現 最長マッチが、機能しない。
# 正規表現 最長マッチが、機能しない。 # # Windows XP(sp3) ActivePerl # # This is perl 5, version 12, subversion 3 (v5.12.3) built for MSWin32-x86-multi-thread # (with 9 registered patches, see perl -V for more detail) # # Copyright 1987-2010, Larry Wall # # Binary build 1204 [294330] provided by ActiveState http://www.ActiveState.com # Built Feb 9 2011 14:38:22 # use strict; use utf8; use Encode; my $doc = "(L)12×(H)34×(W)56\n"; $doc =~ s%(\([LHW]\)(\d+))([^×cm])%$1cm$3%ig; # ←この部分 print encode("cp932", $doc); {出力結果} (L)1cm2×(H)3cm4×(W)56cm
質問日時: 2011/10/26 17:45 質問者: hh77777
ベストアンサー
8
0
-
変数の中は文字列か数値か調べたい。
タイトルのとおり、変数に代入された値が 文字列か数値か調べたいのですが、 関数、モジュール、その他の方法等ありましたら 教えてください。よろしくお願いします。
質問日時: 2005/04/13 03:13 質問者: vvat2
ベストアンサー
8
0
-
ファイルロックの考え方について教えて下さい。
ファイルロックについてなのですが、調べる程に 混乱してきてしまい、投降させて頂きました。 どうかご指導よろしくお願い申し上げます。 hoge.txt(ログテキスト)があったとします。 Aさんがhoge.txtの内容一覧を開くときに 最初のロックがかかりますよね。 一覧を表示できた時点で一旦ロックが解除され、 次に、修正する内容を選び、修正内容の書き込みを している時点では、hoge.txtは、ロックがかかっていない 状態になっているのですよね? この状態の時に、Bさんがhoge.txtの内容一覧を開き 修正内容を選んだあと、Aさんがhoge.txtへ修正内容を 書き込んだとしたら、Bさんがhoge.txtへ修正内容を 書き込む時は、読み込んだ時点のhoge.txtとは内容が 変っているのだと思うのですが、これは問題ないのでしょうか? この場合、Aさんが、hoge.txtから一覧を参照し、修正内容を選び、 修正の書き込みを実行し終わるまでの時間ずっとhoge.txtはロック状態に あるのが望ましいのでしょうか? でも、参照・修正項目選択・修正書き込み・修正投降までの 時間となると、2、3分では済まない時もありますよね。 この時間ずっとロックというのはあまり良く無いのでは… とも考えております。 修正・閲覧までの数分間をロック状態にしなければ、確かに Aさんが修正しようとしているログを、修正書き込み作業している間に Bさんに、削除されてしまう可能性もある(?)と考えると 一連の作業終了までの間ロックしなくてはいけない、とも思うのですが そうなるとflockなどの機能ですと、一覧を表示して、修正こうもくを 選択した時点で、一旦hoge.txtは閉じられる事になり、ロック解除 状態になるのですよね…? それとも、一旦hoge.txtが閉じられた時は、ファイルサイズ0になるように しておけば、一連の作業中ずっとロック状態になっている、という 事になるのでしょうか…?
質問日時: 2006/07/21 11:56 質問者: sibazuke
ベストアンサー
8
0
-
このプログラムなんですが
#! /usr/bin/perl @data=<>; open (IN,"newtype.txt"); @file = <IN>; close (IN); foreach $address (@file) { ($pn,$ad) = split(/\t/,$address); $pnad{$pn}=$ad; } foreach $jusyo (@data) { chomp $jusyo; print $jusyo; print "\n"; print "$pnad{$jusyo}"; } foreach $line (@file) { @data = split(/t\/, $line); if($data[0] =~ "51105") { print "$data[0]"; print "$data[1]"; } elsif($data[0] =~ "651130") { print "$data[0]"; print "$data[1]"; } } exit; コンパイルするときには ./sample.pl data.txt をシェルにうって実行します。 このプログラムでは、はじめに自分で指定したファイル内に存在する郵便番号(通常は7桁だけなんですが、プログラムを見ていただければわかると思われますが、それ以外に5桁(たとえば12354XX,x12354x,xx12354など))と6桁(134567x,x134567など)がありまして、それを表示させたいんですが、上のプログラムでは、if文以下の5桁と6桁があった場合にそれを同時に表示させるプログラムができていないんです。 ハッシュをもちいてプログラムを作り直したいんですが、教えてください。 今日の夜8時までに出さなくてはいけないので、すぐに回答をいただけたらありがたいです。
質問日時: 2007/11/29 11:25 質問者: kuririn311
解決済
8
0
-
テキストファイル内の「誤改行」を修文したい!
perl は初心者です。よろしくお願いします。 ★無名ハッシュを作り、リファレンスをハッシュに格納する方法を採用して、試行錯誤しています。 ファイル内容は、論理行の一行毎に行頭が ”AA” のように””で囲まれています。(例文後述) しかし、行の中には「誤改行」されて正常な行が分割されていて、改行され行頭が””で囲まれていない行が存在します。(正常な行が2分割され、前半部分と後半部分が別な行文となっている) この「誤改行」を、直前にある「元の正常な分割された前半の行文」と連結して、新たな正常な行としてファイルを修正し新規テキストファイルに書きこみたい。この際、分割されていた2個の「行文」は不要になったので、新規テキストファイルには書き込まない。 この修文作業が、途中まで出来ましたが最後の不要な行の削除が出来ないので、困っています。 ------------------------------------------------------------ 対象とするテキスト内容 (下記の行番号と文字列は例示です) 1. "ABCD",あいうえおかきくけこ123456789 XXXXXXXXXXXX 2. "EFGH", 3. さしすせそたちつてと9876543 XXXXXXXXXXXX # ←「誤改行」の行です。 4. "IGKL",なにぬねのはひふへほ123456789 XXXXXXXXXXX 5. "MNOP",まみむめもやいゆえよ987654321 XXXXXXXXXXX 6. "QRST", 7. らりるれろわいうえを123456789 XXXXXXXXX # ←「誤改行」の行です。 8. 9. ------------------------------------------------------------------ 期待する修文の出力結果 (行内容は、元の行番号の順番と違っても結構です) 1. "ABCD",あいうえおかきくけこ123456789 XXXXXXXXXXXX 2. "EFGH",さしすせそたちつてと9876543 XXXXXXXXXXXX 3. "IGKL",なにぬねのはひふへほ123456789 XXXXXXXXXXX 4. "MNOP",まみむめもやいゆえよ987654321 XXXXXXXXXXX 5. "QRST",らりるれろわいうえを123456789 XXXXXXXXX 6. 7. ----------------------------------------- 私作成したスクリプトの要約は、 # 対象ファイルを一行づつ読み込む. # 末尾の改行を削除 # 誤改行の場合を正規表現で探す。$ng_gyou に格納 # その他正常行は$ok_gyou, に格納する。 # $falag に誤改行の場合は0、正常な改行の場合は1を格納 # 誤改行の場合の行番号を$count_ng に、正常な改行の場合の行番号を$count_ok に、全部の行番号は$flag_1に格納する。 # 無名ハッシュを作り,リファレンスを $ref に格納する $ref = {'nomber' => $flag_1, 'ng' => $ng_gyou, 'ok' => $ok_gyou, 'ngcount' => $count_ng, 'okcount' => $count_ok, 'flag' => $flag_ok }; $WORD{$flag_1} = $ref; # nomber:$flag_1をキーにして,リファレンスをハッシュ:%WORDに格納 # このハッシュ「%WORDを」 読み込んで、処理しました。 foreach $flag_1 ( sort { $a <=> $b } keys %WORD) { if($one->{ok} == 0) { ・・・・・・・・・・・・・・・・・ # 細部は、長くなるので省略します。( 誤改行の連結までは成功しましたが、・・・・・・??) 以上、質問内容が冗長になりましたが、どうか御教示下さい。
質問日時: 2011/06/05 15:07 質問者: daiden-ina
ベストアンサー
8
0
-
Perlで着メロDLカウント
Perlで着メロをダウンロードさせカウントするスクリプトを書いたのですが、 J-PHONEでmmfファイルをダウンロードすると「REP310 J-PHONEではページを表示できません」というエラーが出てDLできません。 2000サーバーでIISのMIMEは既に登録済みです。 また、DoCoMoのmldは問題なくDLできカウントできます。 スクリプトはHTTP_USER_AGENTとホストで判定し、 J-PHONEの場合はHTTP_X_JPHONE_SMAFで和音数を調べて、 カウントしてからLocationでファイルの絶対パスへ飛ばしてます。 ちなみに、ケータイに直でパスを入れるとダウンロードできます。
質問日時: 2003/04/25 19:52 質問者: zxfgrhg
ベストアンサー
8
0
-
CGIに変数を送る際のアドレス
メールフォームに変数を送ろうとしています。 ただ、送り元がデザインの制約で<FORM>のボタンではなく、<A>のリンクになってしまってます。 <A>で変数を送ろうとすると、 href="./mail.cgi?hen1=xx&hen2=xxx" という形ですよね。そうすると、アドレス欄に変数がすべて載ってしまいますよね。 これをどうにかして非表示にすることは出来ないのでしょうか?(いわゆるtype=hidden的な事) または、<FORM>内で文字列をボタンにすることは可能なのでしょうか?
質問日時: 2005/11/24 12:05 質問者: master-3rd
ベストアンサー
8
0
-
半角カナから全角カナに変換
Jcode.pmを使用して半角カナから全角カナに変換したいのです。 こちらの過去ログを拝見し、以下のようなロジックを記述したのですが、 ”Undefined subroutine &Jcode::h2z_euc called at test_jcode.pl line 7.”というエラーが出てしまいます。 use Jcode; $line = 'アイウエオ'; $ato = &Jcode::h2z_euc(\$line); print $ato, "\n"; どなたかご回答よろしくお願いいたします。
質問日時: 2002/01/16 20:49 質問者: you_s
ベストアンサー
8
0
-
htmlファイルの改行について
複数ある html ページから、改行部分( <BR> ではなくて )、を自動的に削除して再び保存する、というプログラムを自作しているのですが、\r\n, \r, \n に当てはまらない改行コード? があるみたいで、完全に取りきれないのです。 $input =~ s/\n\r//g; $input =~ s/\n//g; $input =~ s/\r//g; もしくは、 $input =~ s/\x0D\x0A|\x0D|\x0A//g; という具合にしているのですが、予想では、数行にわたるhtml タグから全ての改行が取り除かれ、一行にまとまると いうイメージがあるですが、ところどころ改行が残ります。何がいけないのでしょうか・・・
質問日時: 2003/04/28 13:12 質問者: soushi
ベストアンサー
8
0
-
Perl utf8上でshiftjisをデコード
以下の環境にてURLエンコード(shiftjis)された文字を、UTF8として ブラウザに表示させたいのですが、上手く表示されません。 環境: サーバ:linux apache レンタルサーバ ※Encode.pm、Jcode.pm無し。追加モジュールインストール不可。 Perl version: 5.006001 ソースエンコード:utf-8 実行ソース: ------------------------------------ use utf8; require 'jacode.pl'; # $mojiに予めURLエンコードされた文字が格納されています。 # 例として「マウス」デコード前(%83%7D%83E%83X)とします。 #URLデコード $moji =~ s/%(..)/pack("c",hex($1))/ge; #デコードされたsjis文字をUTF8へコンバート jcode::convert(\$moji, "utf8","sjis"); print ($moji); ----------------------------------- 例のように「マウス」と言う文字が$mojiに格納されている場合、 以下のような文字化けとなってしまいます。 ï¾ãç¿ï½¾ï¾ã¹ 正常にマウスと表示させるにはどうすればよろしいのでしょうか。 アドバイスを宜しくお願いします。
質問日時: 2012/10/21 20:13 質問者: cinquecent
ベストアンサー
8
0
-
system関数を使用してJava実行(戻り値取得)
こんにちは。 perlのsystem()関数を使用してJavaを実行し Javaの戻り値をPerlに返す。 以上の事を行いたいのですが、出来ません。 私が作成したソースと実行時のエラーを載せますので、 ご助言お願い致します。 尚、OSはLinuxです。 ----------------------- - Perl (CallTest.cgi) - ------------------------------------- #!/usr/bin/perl print "=== JavaCall START ===\n"; $Jret = "ABC"; print "PerlReturnBefore : " . $Jret . "\n"; $Jret = system("java Test"); print "PerlReturnAfter : " . $Jret . "\n"; -------------------- - Java (Test.java) - ------------------------------------- class Test { public static String main(String args[]) { String ret = "XYZ"; return ret; } } ------------ - 実行結果 - ------------------------------------- #perl CallTest.cgi === JavaCall START === PerlReturnBefore : ABC Exception in thread "main" java.lang.NoSuchMethodError: main PerlReturnAfter : 256 ------------------------------------- 期待している実行結果は === JavaCall START === PerlReturnBefore : ABC Exception in thread "main" java.lang.NoSuchMethodError: main PerlReturnAfter : XYZ です。 Javaの[public static String main]には戻り値が設定できないのでしょうか? 申し訳ありませんがご教授お願い致します。 以上の質問はPerlのカテゴリで良いのでしょうか? Javaのカテゴリにしたら良かったでしょうか? 場違いの質問でしたらスミマセン。
質問日時: 2004/01/14 09:59 質問者: jyamato
ベストアンサー
8
0
-
CPAN の初期設定のやり直し方を教えてください。
初めてCPANを使い、perl -MCPAN -e shellとしたのですが、国やCPAN サーバを聞いてこず、どうもうまくいっていないみたいです。もう一度perl -MCPAN -e shellとやるのですが設定をきいてきません。 もう一度やり直すにはどうすればいいでしょうか? [root@localhost ~]# perl -MCPAN -e shell Terminal does not support AddHistory. cpan shell -- CPAN exploration and modules installation (v1.7601) ReadLine support available (try 'install Bundle::CPAN')
質問日時: 2006/10/08 22:39 質問者: noname#24489
ベストアンサー
8
0
-
while繰り返し処理で買い物かごカテゴリ階層表示作成
買い物かごのカテゴリ階層表示作成を下記のようにしたいのですが 例) ・カテゴリ1 ・サブカテゴリ1 ・サブサブカテゴリ1 ・サブサブカテゴリ2 ・サブカテゴリ2 ・サブカテゴリ3 ・カテゴリ2 while処理のメインカテゴリ生成内でwhile処理メインカテゴリサブカテゴリ生成内でwhile処理サブカテゴリ該当サブサブカテゴリ作成です。 現在、下記のような状態となっております。 ・カテゴリ1 ・サブカテゴリ1 ・サブサブカテゴリ1 ・サブサブカテゴリ2 ・サブカテゴリ1 ・サブカテゴリ2 ・サブカテゴリ1 ・サブカテゴリ2 ・サブカテゴリ3 ・カテゴリ2 該当サブカテゴリには3つ配列変数があります。 while処理でサブカテゴリ1内の該当サブサブカテゴリ1と2を 出力後、サブカテゴリ1がまた出力されます。サブカテゴリ1と2を 出力後、またサブカテゴリ1、2、3と出力します。 メインカテゴリは正常表示です。 1回のwhile処理に1個ずつ増やして出力しています。 出力する変数の場所を変えると、サブカテゴリは正常表示になり 今度はサブサブカテゴリが表示されなくなります。 サブカテゴリのwhile処理の計算方法がちがうのでしょうか? ご教授お願いいたします。
質問日時: 2006/12/15 16:11 質問者: x01ht
ベストアンサー
8
0
-
require文が実行できない
perl で require 'cgi-lib.pl'; または require "jcode.pl"; を実行すると、 Internal Server Error The server encountered an internal error or misconfiguration and was unable to complete your request. Please contact the server administrator, admin@mshome.net and inform them of the time the error occurred, and anything you might have done that may have caused the error. More information about this error may be available in the server error log. というメッセージが出ます。(cgi-lib.pl、jcode.plは同じディレクトリにあります。)
質問日時: 2005/09/30 02:15 質問者: WETCOLD
ベストアンサー
8
0
-
Perlの文字列削除とcsv出力の方法について
現在、Perlを用いてtxtファイルから必要なデータだけを取り出し、それをcsv ファイルに出力したいと考えております。 Perlはほとんど触ったことがなく、色々と勉強しながら行っているのですが、期 日が迫っているという事情もあり質問させていただきます。 txtファイルには以下のような文が1000行ほどあります。 *○ △ /△/△/△/△/○.txt, ○|○): ○ ○,△:任意の数字、または文字列です。 この内、"○"のものだけを一つ一つ分けてcsvに出力したいのです。 つまり○は4つありますが、出力する際は1つ目の"○"を1行目に、2つ目の"○"を2行 目にといった形にしたいです。 そして、それが1000列分あるということになります。 上手く△のものだけを除外し、○だけを抽出する方法はあるでしょうか? どなたかよい方法をご存知のかたいらっしゃいましたら、教えていただけると幸 いです。 エクセルで行うということも考えましたが、htmlファイルが入力ファイルとなる可能性もあるためPerlで行うことにしました。
質問日時: 2011/08/02 22:57 質問者: xnilix
ベストアンサー
8
0
-
htm.ファイルから冒頭の一行だけを読み込むには
Perl 初心者です。 過去ログのNo.285625 にもありましたが、ファイルの内容を一括して配列@xxに読み込んでprint "$xx[0]\n" とやっても一行目が表示されません。読み込みたいファイルはhtmファイルで一行目には<BR>で改行が入っているのですが、この一行が読めません。どうしたらよろしいのでしょうか?初歩的な質問で済みませんが、お願いします。
質問日時: 2003/09/27 20:47 質問者: tonka729
ベストアンサー
8
0
-
print <<"_HTML_"の中でサブルーチン実行
簡単な質問かもしれませんが print <<"_HTML_" ここでサブルーチンを実行させたい。 _HTML_ お分かりでしたら、教えてください。 ${&sub} で実行できるとどこかに書いてありましたが できませんでした。
質問日時: 2005/03/31 19:37 質問者: gahau
ベストアンサー
8
0
-
die関数のエラー出力先について
いつもお世話になっております。 以下のようなスクリプトを書き、 imapサーバの死活監視を行おうと思っております。 ################################# my $imap = Mail::IMAPClient->new( Server => $hostname, User => $username, Password => $password, Timeout => 5, ) or die "Cannot connect to $hostname imap:143. $!"; -------処理は続きますが割愛------- ################################# そこで、1つ壁にぶつかったので質問いたしました。 +++壁の内容+++ imapサーバに何らかの理由で接続できなかったケースを考慮して、 die関数を使おうと思ったのですが、 このdie関数は、「引数に指定した値を標準エラー出力に出力」するとのことなのですが、 引数に指定した値を任意のファイルに出力する方法はないのでしょうか?? +++やりたいことの背景+++ imapサーバを監視するPerlスクリプトは、 実行するたびに指定したファイルに実行結果と実行時間を出力したい。 実行結果と実行時間を出力したファイルを 別の監視プログラムが監視するという二重構造の監視を行いたい。 imapサーバを監視するPerlスクリプトの実行結果を、 どうしても任意のファイルに出力したい。 +++++++++++++++++++++++++++++++++ 以上です。 よろしくお願いします。
質問日時: 2009/12/09 17:37 質問者: taikimuru
ベストアンサー
8
0
-
1キロバイト文字の削除について
例えばsijisの「、」を削除しようと思い $body =~ s/\xa4//g; とすると\xa4を含む「う」などにも作用し、\xa4を削除してしまいます。 そこで2キロバイトの文字には作用しないようにするにはどうしたらいいか考え 「う」などがあった際には\xa4を削除しないようにしたのですが その場合、例えば「う」と「、」の両方があった時に「、」を削除しなくなってしまいます。 1キロバイトの文字を削除しても2キロバイトの文字には影響しない 何かいいアイデアはないでしょうか?
質問日時: 2013/08/22 10:01 質問者: masa-25
解決済
8
0
-
perlでの値を別のhtmlページに取得するには
申込フォームの値をperlで受け取り、その値を別のhtmlページで表示するにはどうするのでしょうか。
質問日時: 2009/04/05 11:44 質問者: houseroof
解決済
8
0
-
Perlの変数に文字数制限(容量制限)はあるか
Perlの変数に文字数制限(容量制限)はあるか Perlで書いた自作の掲示板なのですが、ずっと普通に動いていたのですが 急にデータが欠けてしまいました。書き込みデータはテキスト形式で、 ↓の様な形で保存しています。 <div>1つの書き込みの中身</div>\n <div>1つの書き込みの中身</div>\n <div>1つの書き込みの中身</div>\n <div>1つの書き込みの中身</div>\n <div>1つの書き込みの中身</div>\n 1つの書き込みは1行に収まっていて、書き込み時に \n を付けて保存して、 読み込み時は配列に読み込んで、べろっと出すだけの処理です。 掲示板書き込みなので unshift で上が新しい書き込みにしてあります。 通常のタグ禁止処理や、改行コード処理はしてあります。Perl5.6.1です。 数日前、容量が減っていることに気付き、調べてみると、 <div>1つの書き込みの中身</div>\n <div>1つの書き込みの中身</div>\n <div>1つの書き のような形でデータが欠けていました。欠けていると言っても9割方消えていました。 残っていたのは新しい側の書き込みです。 いつ消えたのか、何をした時に消えたのかが不明のため、原因を探っている段階です。 もちろん、一番怪しいのはプログラムのミスなのですが、それも調べつつ、 ちょっと前から気になっていた点として、データ容量が1.5MBぐらいまで ふくらんでいて重くなっていたんです。 data.dat のような1ファイルにテキストばかり1.5MB、そして内部の処理でも 普通にその容量を一つの変数に入れたりしています。 データが唐突にぶつっと切れていることと、容量が多くて気になっていたこと、 この辺りでちょっと怪しいのですが、変数の容量制限、ファイルの容量制限が 調べても出てきません。知っている方いましたら教えてください。 他にも、そういうバグの時こういうミスがあったよ、など、ありましたら アドバイスをお願いします。 自分が作った物のデバッグで恐縮なのですが、よろしくお願いします。
質問日時: 2010/06/29 10:03 質問者: toragara-tiger
ベストアンサー
8
0
-
utf-8のコードを使いたい
素人で大変申し訳ございません。 他の人が作ったPerlを改良しようと思っております。 仕様は、csvのカンマからカンマの間に入っている 文字を取得するというのですが、 英数字の場合は、正常に取得できるのですが、 半角ひらがなが入ると文字の取得ができません。 下記の$outputで、私が必要な情報を得ようと思っているのですが、 下記の右辺をどのように変えれば、半角ひらがなも取得できるでしょうか? $output =~ s|/\*\s(([A-Z0-9_])+)\s\*/|$D->{$1}|g; ※エンコードが必要でしたら、utf-8を使いたいと思っています。 一部分の大変失礼な質問と思いますが、何卒よろしくお願い致します。
質問日時: 2012/02/09 21:45 質問者: kgyqk433
ベストアンサー
8
0
-
perlで虫食い算を解く
http://quiz-tairiku.com/nan/q1.html perl初心者です。 perl修行の一環として、上記URLに掲載されている虫食い算を解くperlのコードに挑戦しています。 10の変数と10のforループを使えば何とかなりそうなのですが、 これだと負荷が非常に高いコードになるため、これ以外の方法を模索しています。 何か良い案はないものでしょうか? よろしくお願い致します。
質問日時: 2008/05/07 19:54 質問者: Firena
ベストアンサー
8
0
-
perlのエディタでおすすめを教えてください
perlを書く際、みなさんのおすすめのエディタは何ですか?思いっきり初心者ですが「だったらメモ帳使え!」などとおっしゃらずに、フリー、シェアに限らずこれはいいよというのをお聞かせ願いたいです。PerlBuilderというのがものすごくいい と、とあるHPに書いてあったのですがPerlBuilderというソフトはみなさんよくお使いなのでしょうか?
質問日時: 2001/11/17 00:35 質問者: Mohican
ベストアンサー
8
0
-
ソート処理
ついこの間正規表現のことで質問させていただいたものです なんとか問題は解決しました それとは別にソート関連での質問があります 正規表現の前にソートについて質問してご回答を頂いてからそれを参考に試してみました 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 としたいのですがうえのソースでは何がいけないんでしょうか??
質問日時: 2006/02/11 21:36 質問者: gonntetu
ベストアンサー
8
0
-
perlでファイルを分割するプログラム
3Mを超える1つのテキストファイルに入っているデータある目印をもとに分割したいと思っています。分割ソフトをさがしたのですが見つけられませんでした(サイズで分割はありました)perlでテキスト処理ができると思い「テキスト処理とCGIのためのPerlプログラミング 伊藤 博康 (著) 」という本を借りてきたのですが、そのようなサンプルがなく1からperlを勉強する時間もないため、ここで質問させていただきました。ネット上にファイルを分割するperlのサンプルプログラムがありましたら教えてください。よろしくお願いします。
質問日時: 2004/03/10 10:00 質問者: arumisoy
ベストアンサー
7
0
-
Perlの乱数について
RedHat Linux ES2.1のperl v5.6.1にて初めてのプログラムを書いているものです。 Oracle9iに格納するDATE型のデータを大量に乱数にて作成しようとしているのですが、うまくいきません。 作成しようとしているのは2004年度か2005年度のある日付です(30日まで)。 例) 04-01-30 05-07-12 04-09-28 04-12-11 質問1.下のプログラムだと、年度が00,01,02,03,04,05の値をとり得てしまう。これを04か05に限定するにはどうすればよいか。 質問2.月・日が1桁の場合は0を頭につけたい。下のプログラムでは05-12-1となったり04-5-30となったりしてしまう。 #!/usr/bin/perl $a = 1; while($a < 100000){ $year_rand = int(rand(5)); $month_rand = int(rand(12))+1; $day_rand = int(rand(30))+1; print "0$year_rand-"; print "$month_rand-"; print "$day_rand,"; print "\n"; $a = $a+1; } 宜しくお願い致します。
質問日時: 2004/07/13 18:36 質問者: rio_grande
ベストアンサー
7
0
-
ファイル名を一括変更したいが正規表現方法を教ええください。
リモート側のファイル名を一括変更したのですが、正規表現の方法がわかりません。 現在は以下のとおり記述しています。 opendir(DIR, $FTPdir); @FTPlist = grep (/^$head$year$mon$mday.*\.csv$/, readdir(DIR)); closedir(DIR); if (@FTPlist){ foreach (@FTPlist) { rename /^$head$year$mon$mday.*\.csv$/,/^$head$year$mon$xday.*\.csv$/,); print ; print "\n"; } }
質問日時: 2005/01/12 10:02 質問者: whitelove
ベストアンサー
7
0
-
メールを文字化けしないようにしたい
次のようにメールを送信しようとしています。 Fedora CoreはUTF-8なので、jcode.plでJISに変換しようとしています。 require "jcode.pl"; $subject = "テストメール"; $data = "これはテストメールです。"; &jcode::convert(\$subject,'jis'); &jcode::convert(\$data,'jis'); @str = "subject:$subject\n\n"); push (@str, "$data\n.\n"); これがなぜかうまくいきません。メーラーの文字コードをutf8にすると正常に表示されます。 使い方が違うのかと思ったので、次のように変えてみたところ、エラーになりました。 &jcode::convert(\$subject,'utf8','jis'); また、先頭にuse utf8;を付けてみたところ、送信できたものの文字化けが余計ひどくなりました。 インターネットで検索したり本を読んでみたりしても、よくわかりませんでした。 どうやったらJISに変換できるのでしょうか。 よろしくお願いします。
質問日時: 2006/04/01 18:47 質問者: noname#17299
ベストアンサー
7
0
-
my $pid = open PIPE, "-|";の後の挙動
CGIプログラミング第2版 233ページに掲載されているコードがうまく動きません。 my $pid = open PIPE, "-|"; die "$をforkできません!" unless defined $pid; unless ( $pid ) { exec FIGLET, $string or die "figletへのパイプを開けません: $!"; } このコードは入力した文字列をアスキーアートにしてくれるものなのですが、どうも最後のfigletの行が実行されていないようなのです。 openの使い方が特殊らしく、少ない行数の割に、えらい複雑なコードだな~と感じています。 openを実行した時にフォークが発生し、最終的に子プロセスがfigletを実行してくれるはずなのですが、どうも子プロセスがいない感じがします。 例えば fork; print(0); こんな感じにフォークをした場合 00 のように0が2個出力されるのですが、 この例題のopenの直後に print(0); と記述しても 0は1個しか出力されませんでした。 子プロセスはどこへ行ってしまったのでしょうか。 この例題は私の理解力では意味不明です。 誰か分かりやすく教えてください~~
質問日時: 2008/04/05 17:45 質問者: zyousuke
ベストアンサー
7
0
-
Perl(Windows)の文法について
プログラムPerlの超初心者です。 プログラムで「$path0」をまず設定していて、「path0以下で『W・・・』というフォルダ名があったら「path1」として「path0+\+dname」と設定したいのです。(以下のように書きました) foreach $dname ( @dlist ){ if( $dname=~/W/ ){ $path1=$path0.”\".$dname; print( "$path1\n" ); しかし、『$path1=$path0.”\".$dname;』ここで「Can't find string terminator "'" anywhere before EOF at ****.pl line **.」とエラーメッセージが出ました。 どう直せばいいでしょうか? 分かりにくくて申し訳ないのですが、教えていただけるとありがたいです。
質問日時: 2021/12/04 13:59 質問者: rie78
ベストアンサー
7
0
-
Perl 指定行への書き込み
#!/usr/bin/perl require './jcode.pl'; $file = "houkoku.txt"; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'sjis'); $value =~ s/</</g; $value =~ s/>/>/g; $value =~ s/\t//g; $value =~ s/\r\n/\n/g; $value =~ s/\r/\n/g; $value =~ s/^\s+//; $value =~ s/\s+$//; $FORM{$name} .= (defined $FORM{$name}) ? "," . $value : $value; } open( WRITE, "+< $file" ); print WRITE $FORM{'name'},",",$FORM{'color'}."\n"; close(WRITE); foreach ( keys %FORM ) { if( $FORM{$_} eq '' ) { $FORM{$_} = '入力がありません'; } } #if ( $FORM{'name'} eq '' ) { $FORM{'name'} = '入力がありません'; } if ( $FORM{'color'} eq '' ) { $FORM{'color'} = '入力がありません'; } print "Content-Type: text/html\n\n"; print <<END_HTML; <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> </head> <body> <center> <table border="1"> <td> $FORM{'name'}</td> <td> $FORM{'color'}</td></tr> </table> </center> </body> </html> END_HTML exit; として、カンマ仕切りでデータを保存できるようになりました。 これを、指定行への書き込みを行いたいのですが、どのようにしたら良いでしょうか。 たとえば、5行目にこのデータを書き込んで、常に5行目を上書き更新するような感じです。 よろしくお願いします。
質問日時: 2011/09/27 17:06 質問者: spider32
ベストアンサー
7
0
-
[Perl]長すぎるif文を簡単にしたい
初めまして、説明がうまく伝わらないかもしれませんがよろしくお願いいたします。 同じ値がN回続いた場合、その値をすべて出力するPerlのプログラムを作成中なのですが とても長くなってしまい、スッキリとしたプログラムにしたいのです。 どうかお知恵を貸していただけないでしょうか。 現在、&&を使用してこのようになっています。 例:Aの値が5回連続して同じ値だった場合 for($i=1; $i<=1000; $i++){ if(@A[$i]==@A[$i+1] && @A[$i+1]==@A[$i+2] && @A[$i+2]==@A[$i+3] && @A[$i+3]==@A[$i+4]){ for($j=0; $j<=9; $j++){ printf "@A[$i+$j], @B[$i+$j], @C[$i+$j]"; } } } データはすべて数値で、スペース区切りのテキストデータです。 # ヘッダー 0.00 2.0 11.5 0.01 6.3 17.2 0.01 2.1 14.2 0.01 1.2 14.3 0.01 2.1 14.3 0.01 3.7 14.3 0.01 3.7 14.3 0.01 4.1 14.3 0.06 4.1 14.3 0.01 4.1 14.9 0.01 4.1 14.9 0.03 4.1 14.8 ・・・ 連続した値が50回、100回だった場合になるとif文の条件式が長くなってしまい その都度変更がとても大変になってしまい困っています。 どうか、よろしくお願いいたします。
質問日時: 2012/04/24 17:45 質問者: Lena_River
ベストアンサー
7
0
-
perlの初心者本買ってきたものの・・・
つい最近perlに手を付けて、非常に手こずっています。何に手こずっているかも申しますと、ほんの通りにプログラムを書いてもうまく動作しないことです。本は「Perl/CGI超入門」(藤森○絵)筆です。入力フォームのボタンをクリックしてもWEBページ(localhost)が「開くことができません」とでます。HTML、○.plどちらも指定したフォルダに入っています。HTMLのページは入力フォームですがちゃんとWEBに出ます。でも、フォームの中の文字列を取得してCGIのページになると表示されません。perlはCygwin,Activperlとも試してみました。CGIのページに跳んだときのURLは本に書いているURLと同じくでます。 著者へ質問できるようなアドレスも無く、技術評論者に質問できるようなページもないので、なすすべ無しといったところです。私のPCの設定に問題があるのかもと思い、インターネットセキュリティーソフトをおアンインストールしてみましたが同じでした。内心、これを超初心者として出版しているのであれば、本当に初心者のものは皆頭にきてしょうがないだろうなというのが本音です。perl自体の言語で引っかかっているのではなく、サンプルプログラムが動作しない(コピペで)。どなたか同じ本を買った方で、原因が分かるか方おりませんでしょうか。
質問日時: 2007/08/08 16:09 質問者: ityounomi
ベストアンサー
7
0
-
入力されたアドレスに@docomo.ne.jpを追加
フォームを使って、入力されたアドレスにメールを送ろうと思っています。入力されたアドレスに@docomo.ne.jpを追加しようと思うのですが、うまくいきません。 どなたかご教授お願い致します。 ソースはこんな感じです。 $location = 'http://www.0000.co.jp/'; $docomo = '@docomo.ne.jp'; if (open(MAIL, "|$sendmail -f $form{'email'} $docomo -t")) { $msg = "To: $form{'email'} $docomo\n"; $msg .= "From: $webmaster\n";
質問日時: 2002/02/05 15:11 質問者: izaq
ベストアンサー
7
0
-
Perlと画像について
やまとです。 CGIから、画像を呼び出しています。 CGIファイル:Apache/cgi-bin/test.cgi 画像ファイル:Apache/cgi-bin/image/test.gif test.cgiでの画像呼出部分:<image src=./test.gif> しかし、画像が出てきません。なぜでしょう? 自分なりに調べてみましたが、大分原因が分かってきました。 error.log見てみると、 c:/apache/cgi-bin/test.jpg is not executable; ensure interpreted scripts have "#!" first line couldn't spawn child process: c:/apache/cgi-bin/top_image.jpg と言うエラーでした。 どうやら、画像ファイルをCGIスクリプトとして見てしまっているようです。 (↑考え合ってますよね) おそらく、httpd.confがおかしい(?)Aliaseですかね(?) ここまで調べてみましたが、対処方法がわかりません。 どなたか、どこを、どう直せば良いのか、 出来るだけ詳しくご教授願えないでしょうか? 宜しくお願いします。
質問日時: 2002/03/16 09:54 質問者: jyamato
ベストアンサー
7
0
-
「perl」 コメントアウトは削除すべきか?
CGI「perl」を実際に、サーバにアップして使う際、コメントアウトは削除したほうがいいのでしょうか? コメントアウトを削除すれば、読み込みが早くなる気もしますがいかがなものでしょうか? ご存知の方教えてください。 宜しくお願い致します。
質問日時: 2005/12/14 16:28 質問者: ayu_mi_nic
ベストアンサー
7
0
-
perlのgrepで日本語の処理でエラーになる
下記のソースでエラーになる。 1. # grep.pl 2. @list1=(); 3. push @list1,"まぐまぐニュース"; 4. push @list1,"大阪"; 5. push @list1,"福岡"; 6. push @list1,"名古屋"; 7. push @list1,"京都"; 8. @list2=(); 9. push @list2,"東京"; 10. push @list2,"神田"; 11. push @list2,"浜松町"; 12. push @list2,"名古屋"; 13. push @list2,"福岡"; 14. push @list2,"QTNetお客様センター"; 15. for $data(@list1){ 16. print grep(/^$data/,@list2),"\n"; 17. } Unmatched [ in regex; marked by <-- HERE in m/^まぐまぐニュー <-- HERE ス/ at C:\Users\usui\EDMax\DataGen5\grep.pl line 16. windowsの環境でshift jisで書いています。
質問日時: 2015/07/26 22:04 質問者: usui-2015
ベストアンサー
7
1
-
正規表現でのエラー
検索システムを作ろうと思っています。テキストファイル(このソースではgreetings.txtです。)の中にある文章をキーボード入力で1文字でもヒットすれば抜き取って表示させたいのですが、以下のソースをコマンドプロンプトで実験したところ「Q、Y,S,M、と記号」で検索すると全ての文章がヒットしてしまいます。他の文字では問題無くヒットするのですが…。perlを始めてばかりでまだまだわからないことだらけです。いちおう本やネットで検索したんですがさっぱりわかりません。どなたかどうかお力を貸していただけませんか? #!C:\Perl\bin\perl $kensaku = <>; $ans = eval $kensaku; open(IN, "greetings.txt"); while ($line = <IN>){ if($line =~ /$ans/i){ print "$line"; } }
質問日時: 2006/12/03 05:15 質問者: tokko64
ベストアンサー
7
0
-
自動改行タグの挿入
フリーの改造OKなCGIを改造していますが、上手く行きません。 <textarea name=com cols="70" rows="10" wrap="OFF"></textarea> 上記のタグで入力したテキストの末尾に、自動で改行タグを付けて $com に渡してデータ保存をしたいのですが、なかなか上手く行き ません。どの様な記述をすればよいでしょうか? ご指導宜しくお願い致します。
質問日時: 2008/09/02 09:53 質問者: qwert789
ベストアンサー
7
0
-
LWPを使わずに別ドメインのrssファイルを読み込む
perlで別ドメインのブログのrssファイルを HPに表示させたいと考えています。 こちらはphpですがこれと同じ事を perlでやりたいと考えています。 http://ajax.pgtop.net/category/4527871-1.html しかし、レンタルしているサーバーに LWPライブラリがインストールされておらず LWPを使っていないであろう下記サンプルを試してみたのですが HTTPエラー:500と表示されるだけでした。 http://www.kawa.net/works/perl/feedpp/feedpp.html サーバーではplファイル・cgiファイルを使っている 箇所もあり、それらは機能しているので perlはインストールされているのですが ライブラリ関連はほぼインストールされていない状況だと思います。 ちなみにPHPはインストールされていないので 使えない状況で、おそらく他の言語も厳しい状況です。 他のサンプル、方法などご存知の方 いらっしゃいましたら教えて頂きたいです。 宜しくお願い致します。
質問日時: 2008/09/15 23:46 質問者: yanagiman2
ベストアンサー
7
0
-
特定の文字列を削除
こんにちは perlで特定の文字列からその後ろをすべて 削除したいのですが、うまくできなくて質問します。 Ex)123.12abc ⇒123.12 012.123abc ⇒012.123 123.1234|| ⇒123.1234 上記のようなデータの少数点までの数字の後ろにabc、||、半角、全角スペースなど文字列があります. 少数点までの数字の後ろの文字列すべてを削除したいですが、 特定の文字列からその後ろにある文字列全てを指定する方法(正規表現)はありませんでしょうか? どうかご存知の方、教えてください!! よろしくお願いいたします。
質問日時: 2009/01/26 21:06 質問者: ththkek
解決済
7
0
-
多元配列の0初期化
たびたびお世話になっております。 PERL 5.14.2 (Windows 7)を コマンドプロンプト上から動かしています。 use strict; use warnings; @multi_dimension_arrays; # $multi_dimension_array[$x][$y][$z] というような配列の中身を最初に0初期化したいのですが $x, $y, $zがどれだけ増えるかわかりません。 (0初期化していないので、大小比較などでエラーとなることがあります) 0初期化の方法をお教えください。
質問日時: 2012/11/18 22:47 質問者: ng999
ベストアンサー
7
0
-
gifcat.pl:助言お願い致します
カウンター画像の素材配布/サンプルページ(カウントはしない)を製作しています。 http://cgi-design.net/cont/study/study.cgi?mode=main&no=28 を参考にtest.cgi(=sample28.cgi)を作成し、以下のようにアップロードしました。 aディレクトリ ├index.html ├test.cgi ├gifcat.pl ├b(0.gif~9.gif) └c(0.gif~9.gif) index.htmlに<img src="test.cgi&id=b">といった感じに記述し、bディレクトリの10個の連結画像(0123456789)、同じく<img src="test.cgi&id=c">でcディレクトリの連結画像を表示させたいのですが、test.cgiの改造のしかたがさっぱり解らずにいます。 実際のサンプル画像ディレクトリは50以上あるので、どうにか再現できないかな…と思っています。助言頂けると助かります。宜しくお願い致します。
質問日時: 2006/05/10 19:12 質問者: persona99
ベストアンサー
7
0
-
HTML::FillInFormが使えない(インストールできない?)
HTML::FillInFormをCPAN経由でインストールしましたが、うまく動きません。対処方法を教えていただけないでしょうか。 状況は以下のとおりです。 CPAN経由でHTML::Templateはインストールして使えているのでCPANの原因ではない模様。 HTML::FillInFormを使うPerlを実行すると以下のメッセージが出る Can't locate HTML/FillInForm.pm in @INC (@INC contains: /usr/local/lib/perl5/5.8.8/BSDPAN /usr/local/lib/perl5/site_perl/5.8.8/mach /usr/local/lib/perl5/site_perl/5.8.8 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.8.8/mach /usr/local/lib/perl5/5.8.8 .) at ***(PGM名).cgi line 34, <DATA> line 846. line34にはuse HTML::FillInFormと記述している。 教えてgooで検索したところ、 http://oshiete1.goo.ne.jp/qa2007575.html に同様の話が出ていたので、回答へのお礼を参考に、 処理を実行。 ところが、make installの時点で以下のメッセージが出てインストールできません ERROR: Can't create '/usr/local/lib/perl5/site_perl/5.8.8/mach' Do not have write permissions on '/usr/local/lib/perl5/site_perl/5.8.8/mach' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! at -e line 1 *** Error code 13 CPAN 経由でインストールを再度試みても、インストールされていると誤認識されているのか、 HTML::FillInForm is up to date (2.00). と出ます。 原因と解決方法を教えていただけないでしょうか。 FillInFormの前に別のモジュールをインストールしてないといけないのでしょうか?
質問日時: 2007/10/13 01:31 質問者: fukutokyo
ベストアンサー
7
0
-
CGIから複数の別プログラムを同時に呼び出す
CGIから複数の別プログラムを同時に呼び出す Web上にある複数の画像を wgetで自サーバー内に取得してから、それにリンクした形のHTMLソースを吐き出すプログラムがあります。 ところが、複数の画像はループで順に取りに行っているものですから、全部取り込んでからHTMLを表示させるのに非常に時間がかかってしまいます。 そこで、wgetでファイルを取りに行くサブルーチン部分を独立させたプログラムを別に作り、接続先などのプロパティを渡した上、それぞれ同時に複数立ち上げて実行させようと思うのですが、可能なのでしょうか? system()関数だと一応別のプログラムを呼び出せるようですが、結局親プログラムは呼び出した一つの子プログラムの終了まで待って次に行くみたいなので意味ないかと・・・。 どなたかご教授頂ければ幸いです。
質問日時: 2010/10/30 12:49 質問者: AAbb11ccDD
ベストアンサー
7
0
-
ログファイルの指定行に書込み
open(IN,"$log") || &error("Open Error"); @data = <IN>; close(IN); while (100 <= @data) { pop(@data); } open(OUT,">$log") || &error("Write Error"); print OUT "$in{'id'}<>$in{'comment'}\n"; print OUT @data; close(OUT); ログにはID、時間、コメントが登録されています。 送信データの中に、ログに登録済みのIDがある場合には、そのIDのある行のみを書き換えたいのですが、方法がどうしてもわかりません。 $logに記録されるIDの順番は以下のようにランダムです。IDに登録される文字列は1からの数値のみです。 52<>コメント 120<>コメント 35<>コメント 8<>コメント 2<>コメント 19<>コメント 85<>コメント よろしくお願いいたします。
質問日時: 2007/08/20 22:33 質問者: fx2
ベストアンサー
7
0
-
perlの条件分岐について
条件分岐を使い、長いperlを簡単にまとめたいと思っています。抜粋したperlを以下にのせましたがYES/NOがずっと続いていて、メンテナンスに困っています。 どうかアドバイスをお願いします。 ・データのかたち %%%%%%%%%345 YES%%%%%%%%%%%%%%%%%%%%%%%%% ver 3445675585950 data 111111111111 345 777good %%%%%%%%%380 NO%%%%%%%%%%%%%%%%%%%%%%%%%% big 2910028717721 q qtyuqqqqqqqqq ppm 3.9999999999 380 NO 222down ・現在のperlの抜粋 #345がYESのとき if($_ =~ /\s+345+\s+(-?[\d.]+)/){ print OUT "\n345,$1,YES"; } #345がNOのとき if($_ =~ /\s+345+\s+NO+\s+(-?[\d.]+)/){ print OUT "\n345,$1,NO"; } #380がYESのとき if($_ =~ /\s+380+\s+(-?[\d.]+)/){ print OUT "\n380,$1,YES"; } #380がNOのとき if($_ =~ /\s+380+\s+NO+\s+(-?[\d.]+)/){ print OUT "\n380,$1,NO"; }
質問日時: 2008/10/22 21:16 質問者: noname#72292
ベストアンサー
7
0
-
FedoraCore3の/var/www/html/に
x.cgi: #!/usr/bin/perl print "Content-type: text/html\n\n"; print "<HTML>\n"; print "<HEAD><TITLE>world</TITLE></HEAD>\n"; print "<BODY>\n"; print "<H2>Hello</H2>\n"; print "<HR>\n"; print "</BODY>\n"; print "</HTML>\n"; を配置して他のPCからこのファイルを読みだしたのですがこのコードがそのまま表示されてしまい Perlが実行されません 何が原因でしょうか?
質問日時: 2005/01/04 00:23 質問者: keyguy
ベストアンサー
7
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
最新のコラム/記事
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
生活スタイルが欧米化している昨今、和室よりも洋室の人気が高く、畳の需要が減ってきている。和風の民家が洋風にリノベーションされ売りに出されているのを目にしたことがある人も多いだろう。実際「教えて!goo」に...
-
メダロット:第240話「Vol.240※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
『保留にする勇気』を持つメリットとは?慣れない新環境で感じる気持ちのギャップ
春から新しい環境に身を置いている人も多いだろう。職場や学校に早く慣れ頑張りたいと思っていても、周囲と自分の気持ちにギャップがあり、ストレスを感じてしまうことがある。「教えて!goo」にも「保育士です。春か...
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
飾ると部屋の雰囲気がぱっと明るくなる観葉植物。新年度を迎えたこの時期、気持ちも新たにインテリアに取り入れたいと思う人もいるだろう。せっかく飾るなら、運気もアップできれば一石二鳥だ。「教えて!goo」 にも...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
openした後、closeしないでプログラ...
-
perlをバージョンアップしたら、今...
-
テキストファイルで提出とは?
-
Perlで時間の計算
-
アルファベットに付いて質問します...
-
perlでリテラル値はメモリにどのよ...
-
TeraPadエディターの操作方法について
-
Perlのエラーについてご教授くださ...
-
AI sisterとは、偽物の人ですか?
-
ファイルアイコンの左下に緑の□の中...
-
perlのrequireの動き方についての質問
-
perlのプログラミング 部分入れ替え...
-
Strawberry Perl for Windows で Ou...
-
perl 初等プログラミングについて
-
arduino の割り込み処理について
-
#!/usr/bin/perlで書きだしたCGIを...
-
perlのflock関数でロックをかけたま...
-
bashスクリプト
-
perlプログラミング 空白行削除
-
perlで2次元配列をサブルーチンに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストファイルで提出とは?
-
openした後、closeしないでプログラ...
-
perlをバージョンアップしたら、今...
-
INDIRECT 横に再度抽出したい
-
Perl の外部モジュールの利用方法
-
Perlで特定文字列から特定文字列ま...
-
Perlのエラーについてご教授くださ...
-
bashスクリプト
-
Strawberry Perl for Windows で Ou...
-
perlで2次元配列をサブルーチンに...
-
TeraPadエディターの操作方法について
-
アルファベットに付いて質問します...
-
perlのflock関数でロックをかけたま...
-
ファイルアイコンの左下に緑の□の中...
-
perlプログラミング 空白行削除
-
Wallpaper Engineでおすすめの壁紙...
-
Perlで時間の計算
-
perlのrequireの動き方についての質問
-
perlでリテラル値はメモリにどのよ...
-
画像が表示でnull; this.src
おすすめ情報