Perlコーディング初心者質問スレ Part 39
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/11/27 11:35:03ID:DJwiGeFM【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0653nobodyさん
05/01/08 07:34:20ID:???実体は参照カウンタ型ガーベッジコレクション付きのメモリに確保される。
実体は参照されている数がカウントされていて、カウントが0に(誰も参照していなく)なると破棄される。
変数がサブルーチンから抜けるなどでスコープから外れると、
変数の名前が破棄されて、参照カウント値が一つ減らされる。
しかし、リファレンスによって参照されている限りカウントは0にならないから実体は破棄されない。
（ここでのリファレンスはシンボリックではない、ハードリファレンスのこと)
C,C++の(一般的な実装の)ローカル変数のようにスタック上にメモリを確保する訳じゃないから、
こんな芸当ができる。
0654nobodyさん
05/01/08 07:35:17ID:???誰かに注目されている限り神様が生かしてくれます。
友達のお婆ちゃんはこれが原因で亡くなりました。
0655nobodyさん
05/01/08 09:37:13ID:???この辺は「初めてのPerl」読めばすっきりすると思う。
クロージャとかも混乱しやすいね。
0656nobodyさん
05/01/08 13:05:23ID:???split(/\s/);を使ってスペースで区切ると"と"の間のスペースでも、区切られてしまいます。。。
,で区切る場合は、realmで,が現れるとそこでくぎられてしまいます。
また、スペースがない場合はrealmは"と"で区切られないこともあるかもです。
誰か助けてください。。。
パターン
Basic realm="Secret Zone"
Digest realm="Secret Zone", nonce="RMH1usDrAwA=6dc290ea3304de42a7347e0a94089ff5912ce0de",
algorithm=MD5, qop="auth"
取り出したい値
$type = Basic 又は Digest;
$realm = Secret Zone;
以下$type=Digestの場合のみ。BasicのときはNull。
$nonce = RMH1usDrAwA=6dc290ea3304de42a7347e0a94089ff5912ce0de;
$algorithm=MD5;
$qop=auth;
0657nobodyさん
05/01/08 13:25:08ID:???言ってることがよく分からん
0658nobodyさん
05/01/08 14:09:43ID:???ファイルの中身が「abcCLＥてすと」である文章をopenして、
$text = "abcCLＥてすと"
とし、これから「abc」を削除しようと思って
$text =~ s/a|b|c//g;
print "結果：$text\n";
として、結果を表示すると
「結果：ｂkＥてすと」
と表示されます。
abcは削除されているようですが、他の文字が文字化けしています。
文字化けさせない為には、どうすればいいでしょうか？
0659656
05/01/08 14:21:24ID:???ttp://www.studyinghttp.net/rfc_ja/rfc2617.ja#sec3.2.1
2種類のWeb認証ヘッダを取得して変数に代入したいということです。
ヘッダから取り出したいのは、
Basic又はDigestなどの第一要素。
認証名を収納しているrealm。
Digestで必要なnonceとalgorithmとqop。
以上の5つです。
0660nobodyさん
05/01/08 16:41:21ID:???だからよ、そのパターンってのが何に入っているんだ？
配列か？変数か？ハッシュか？
splitとか言ってるってことはもう格納してあるんだろ？
0662656
05/01/08 18:35:50ID:???splitでやって失敗したので困ってます
,で区切った場合、""で囲まれたところで,が出てきたら大変なことに・・・
>>661
正規表現はちょっと苦手なので、なるべく避けたいと思ってたり・・・
それに、それがすべてではなく、順番なども異なっている鯖もあるかもです
0665nobodyさん
05/01/08 19:56:37ID:???$text = "abcCLＥてすと";
$text =~ s/a|b|c//g;
print "結果：$text\n";
結果：CLＥてすと
化けないよ。
0668nobodyさん
05/01/08 20:58:27ID:???0669nobodyさん
05/01/08 22:26:26ID:???という話か?
それなら「それはきみがわるい」でまとめちゃうぞ
0670nobodyさん
05/01/09 01:39:48ID:???画像を文字に変換するというスクリプト(バイナリデータを16進ダンプし、
それをスクリプトに埋め込んで復号)を試してます。
上記のサイトの変換、復号cgiをレンタル鯖(Linux+Apache1.3+Perl 5.008003)に
設置してやると正常に動くのですが、ローカル(Win2k+Apache2+Perl 5.008004)
だと画像が壊れてビットマップがぐちゃぐちゃになってしまいます。
$data = pack('C*',hex($_));
ここらへんに原因があるとしか思えないのですが、、、
Windows+Perlでファイル出力の場合ならbinmodeにしたりするところですが、
こういう場合はどうしたらいいでしょうか。
0671nobodyさん
05/01/09 05:52:13ID:???1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
0672nobodyさん
05/01/09 07:33:40ID:???0673nobodyさん
05/01/09 07:49:51ID:???全体像が見えないので勘で答えてみた。
0676nobodyさん
05/01/09 08:24:21ID:???0677nobodyさん
05/01/09 12:43:15ID:???0678nobodyさん
05/01/09 13:11:09ID:???> 2種類のWeb認証ヘッダを取得して変数に代入したいということです。
ここで言ってる「Web認証ヘッダ」とはクライアントからサーバに送られるAuthorizationヘッダの事か?
このヘッダはセキュリティ上の理由でCGIには渡されないと言う事を知っているか?
0679670
05/01/09 14:17:11ID:???レスありがとうございます。わかりにくくてすみませんでした。
1： 16進ダンプされた数値を画像に変換したい。
2： ttp://www.rescue.ne.jp/study/pack/ 変換 復号cgiをそのまま実行。
レンタルサーバーでは全く問題がなかった。
3： 自宅サーバーで画像が化けた。
binmode(STDIN);入れてもダメでした。
ttp://para-site.net/up/data/1032.zip
↑正常な画像,壊れた画像,使用したソースです。
0680670
05/01/09 14:32:59ID:???やはりbinmode(STDOUT);でした。
IEのキャッシュを消してリロードしたら表示されました。(^-^;)
0681nobodyさん
05/01/09 14:35:38ID:???自力解決乙。
ちなみにその二つの画像ファイルをバイナリエディタで見比べてみると
0xBC の 0A F6 F4 の部分が壊れた画像では 0D 0A F6 F4 となっている。
これくらい自力で調べられるようにしておくといいかも。
0682nobodyさん
05/01/09 15:13:59ID:???Perlバージョンが分からないから、とりあえず。
use encoding "shiftjis";
$text = "abcＣＬＥてすと";
$text =~ s/a|b|c//g;
print "結果：$text\n";
0683659
05/01/11 22:55:58ID:???> ここで言ってる「Web認証ヘッダ」とはクライアントからサーバに送られるAuthorizationヘッダの事か?
サーバーからの要求のほうです。
> このヘッダはセキュリティ上の理由でCGIには渡されないと言う事を知っているか?
もちろん知っています。モジュールを使えば取得できることも知っています。
今回は、CGIにブラウザから渡って来るのではなく、Socketで取得してますのでこの点は関係ありません。
0684nobodyさん
05/01/12 00:36:54ID:???どうやるとスマートに出来ますか？
一応自分で考えてみたのは
my @number = ();
my $dummy_count = 0;
foreach my $dummy (@array){
my $dummy2_count = 0;
foreach my $dummy2 (@array){
if($dummmy1_count != $dummy2_count){
if($dummy1 eq $dummy2){
ここでさらに$dummy1_count と$dummy2_count が@numberにあるかどうか
をみて、ない場合にそれぞれ追加
}
}
$dummy2_count++;
}
$dummy1_count++;
}
ってな感じの初心者丸出しコードなんですが（汗 見難いですね・・・。
結果としては上手く出来たのですが、もっと良いコードの書き方があるかと。。。
いかがなもんでしょうか？
0685684
05/01/12 00:38:26ID:???半角スペース使ったせいで死。。すいません
0686nobodyさん
05/01/12 00:44:21ID:???0687nobodyさん
05/01/12 01:23:28ID:???my @list = qw/test1 test2 test3 test4 test5 test2 test6 test7/;
my %count;
@_list = grep $count{$list[$_]}++, 0 .. $#list;
print @_list;
0688nobodyさん
05/01/12 01:33:22ID:???それだと5しかでないけど、欲しい結果は1,5なんじゃない?
私ならこうする。
my %count;
foreach (0..$#array) {
push @{$count{$array[$_]}}, $_;
}
my @number = map @$_, grep @$_ >= 2, values %count;
0689nobodyさん
05/01/12 02:00:22ID:???連想配列の要素の数はどうやってもとめればいいんですか？
0691nobodyさん
05/01/12 02:04:54ID:???そうだったんか。俺ならこう。
my @list = qw/test1 test2 test3 test4 test5 test2 test6 test7/;
my %count;
$count{$_}++ for @list;
my @_list = grep $count{$list[$_]} >= 2, 0 .. $#list;
print @_list;
0692684
05/01/12 02:23:19ID:???レス有難うございます。
>>688さんの仰るように、例でいくと1, 5が欲しかったです。
それで、今>>688さんのコードを試して見たのですが・・・・・。
あっさりすぎるほどに求めていた答えがでました。私が書いた50行がたったのコレだけで
出来てしまうんですね（汗 悲しい部分もありますが、すごく感動ですね。
本当にありがとうございますm(_ _)m
ですが・・・・コードがまだ理解出来ないのがイタイです（笑
もし>>688さんに少しお時間ありましたら、ほんとにさわりだけでもいいのでコード解説とか
お願いできませんか？ 解説頂いても理解出来ないかもしれませんが、人のコード使っておいて
まったく何やってるか分からないってのも困りますし、自分のためにならないぽいので。。。。
こちらはお聞きすることしか出来ませんが、もし余裕があればお願いします。
>>677さんのコードも試してみました。
こちらも重複する項目の番号が返ってきました。
こちらの説明が足らなかったので申し訳なかったです。けどパッと書けてしまうみなさんは
すごいですね。私もまだまだ頑張らないと。
>>687さん >>688さん、本当にありがとうございました
0693nobodyさん
05/01/12 09:12:09ID:SoBMVf5u携帯はキャリアごとに画像形式などが違うので完全にCGIで作っています。
PCサイトは既に作ってあり運営中なので、簡単だろうなと思ってとりあえず
見た目はある程度できました。
が、携帯はcookieが使えないとこのことorz
PCサイトではcookieに注文内容を詰め込んでいたので、ちょっと困っています。
今はURIの?以降にページIDを使ってページの移動をしてます。
今考えているのは
http://www.2ch.net/?page=index&商品番号=数量&商品番号2=数量2
等の形式で常にリンクURLの後ろに注文内容を保持していく方法です。
getの制限である255byteはそうそう超えないんで大丈夫だと思いますが・・・・
?page=index&ユニークID のようにIDを発行して注文内容はサーバ側で
管理してIDマッチングでセッションするならばバイト数なんて気になりませんが、
現状の私のスキルでは少し時間がかかりそうです＾＾；
もっと賢いやり方があるなら教えてくださいm(_ _)m
0694nobodyさん
05/01/12 10:00:34ID:???相手のIPで照合するとセキュリティ的にも最高品質ですよ。
なのでサーバー側にファイルを作るか、MySQLでやるかだけですね。
0696nobodyさん
05/01/12 10:52:46ID:190vuMua>http://www.2ch.net/?page=index&商品番号=数量&商品番号2=数量2
>等の形式で常にリンクURLの後ろに注文内容を保持していく方法です。
>getの制限である255byteはそうそう超えないんで大丈夫だと思いますが・・・・
どう考えても、やめた方がいいだろう。
おれは、携帯の場合、ファイルベースの簡易的なセッションを自作して使ってるけどね。
>PCサイトではcookieに注文内容を詰め込んでいたので
さらにこれも危険。
>694
携帯ってリクエスト毎にIP変わらなかったっけ？
0698nobodyさん
05/01/12 11:37:34ID:???ttp://www.rfs.jp/sitebuilder/perl/02/05.html
配列やハッシュの要素数てのは、その配列やらハッシュやらを扱う上でも基本的な
ことだから、テキストとかにも各分野の最初の方に載ってるのではないかな?
調べ方がちと足りないかも。適当にググれば出てくるヨ☆
偉そうなこと書いてしまったが、こちらも初心者故、共に頑張ろうではありませんか。
0699693
05/01/12 11:53:12ID:SoBMVf5u>どう考えても、やめた方がいいだろう。
え；どうしてでしょうか？
漏れるからですか？アクセショップなので注文内容は漏れていいですが・・・
っていうか注文内容が漏れてまずかったらお店で買物なんてできませんよね。
もしかして住所などの個人情報を懸念してるのですか？
それでしたらSSL+POSTでやっていますが。
もう少し自分で調べてみますm(_ _)m
0700nobodyさん
05/01/12 12:06:48ID:???d,e,f
g,h,i
↑のようなテキストファイルがあります。実際は数百行です。これから以下のような配列を作りたいです。
@1行目の配列※名前はaとする2行目からはb,c,d,eとする
$a[0] .. a
$a[1] .. b
$a[2] .. c
$b[0] .. d
のように。
これをループ処理でやりたいんですが、数百の配列に名前を動的に与える方法で悩んでます。
open FH,"text.txt";
@array = /a b c d e f g h i j k ........数百まで/;
$i = 0;
while (<FH>){@$array[$i]？？？ = split /,/;}
なんかおかしなことに。
0701nobodyさん
05/01/12 12:08:44ID:???0702nobodyさん
05/01/12 12:21:20ID:???せっかく問題を提起したのだから、解決コードも書いて置くと後学の為になるし、
コードに改善点があれば誰かが指摘してくれるよ。
0703693
05/01/12 14:07:08ID:SoBMVf5uURLに注文内容を圧縮して持たせる場合常にURl自体に注文内容が含まれてるので
購入中にトップページにブックマークした場合、いつ来てもブクマしたときの
注文内容が残ってしまいますね・・・
しかしURLにセッションIDを持たせたとしても同じことがおきますよね。
もちろんサーバ側のファイルを最終アクセスから2時間たったものは消していけば
いいですけど、古いセッションID付でブクマされると何か嫌ですよね。
みなさんはどうやって古いID付でブクマークされるのを防いでるのですか？
0704nobodyさん
05/01/12 14:49:15ID:???スレ違い
△▲ WebProg 初心者の質問 Part11 ▼▽
http://pc5.2ch.net/test/read.cgi/php/1101635909/
0706nobodyさん
05/01/12 19:39:08ID:iuHcyFLg持っているPerlの本のURLエンコードについての説明のところには、
「-」「@」「*」「.」「_」はエンコードされないと書いてあって、
エンコードのサブルーチンは
sub UrlEncode {
local($str) = @_;
$str =~ s/([^ 0-9a-zA-Z\-@\*\._])/sprintf("%%%02X", ord($1))/eg;
$str =~ s/ /+/g;
return $str;
}
…と書いてあります。
ところが別のページや他サイトでは、上のコードの３行目のところが
$str = ~s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
となっているようです。
どちらのコードにすればいいんでしょうか？
後者の方では、\W＝[^_0-9a-zA-Z]だから記号もエンコードしてしまうのではと
思うんですが…。
よく分かってなくてすいません。よろしくお願いします。
0707nobodyさん
05/01/12 20:12:34ID:???最初にアクセスしたtimeでも引っ張って一時保存ファイルでも作れば？
そっちに注文内容とか入れ込んで、一時保存ファイルの作成時間が一時間以上前のものなら消すとか
>696
＞携帯ってリクエスト毎にIP変わらなかったっけ？
DoCoMoは変わる、auは変わらない、Vodaはシラネ
0709nobodyさん
05/01/12 20:28:34ID:???reserved = ";" | "/" | "?" | ":" | "@" | "&" | "=" | "+" | "$" | ","
これはエスケープする。
unreserved = alphanum | mark
mark = "-" | "_" | "." | "!" | "~" | "*" | "'" | "(" | ")"
これはエスケープしなくてもいい。しても構わない。
http://www.ietf.org/rfc/rfc2396.txt
0711だめだめ君
05/01/13 02:40:25ID:???日本語文字コードらへんで何か変わった問題とかあるんでしょうか・・・。どう対処すればいいのか分かりません…
宜しくお願いします。
0712nobodyさん
05/01/13 06:44:36ID:???DBへ格納している文字の文字コードは？
そのプログラムソースの文字コードは？
恐らく、その両者の文字コードが一致していないと思います。
0713693
05/01/13 09:14:06ID:mOXqnzCMスレ違いなのですか？
Perl特有の解決方法などがあると思いましたが、全言語共通なんですか？
とりあえず誘導ありがとうございますm(_ _)m
>>705
postでやるのは考えましたが、テキストリンクぽく見せるのが不可能ですよね。
ボタンやセレクトボックスになってしまうと違和感があるので・・・
0714nobodyさん
05/01/13 09:41:39ID:???よってスレ違い。
0715nobodyさん
05/01/13 09:44:55ID:???0716だめだめ君
05/01/13 12:18:38ID:???ありがとうございます。表示以外は全部EUCです。
ただ、文字コードの違いだったらもっと激しく全部文字化けすると思うんですが、一部の文字なんです。
他の件でPHP使ってるときにも￥が入るとかそういうのがバックスラッシュのエスケープとかであったので、
それと似たものなのかなぁと色々検索したんですが、、、、それっぽいのも見つからず…。
どうしたもんでしょうか…
0719nobodyさん
05/01/13 14:25:30ID:F0U77FE9でcp932からutf8へ変換を行っているのですが、そのあと、
文字化けを起こしている（マッピングに失敗した）文字を？とか★とかに変換
したいのですが、どのように行えばいいのでしょうか？
ごくごくまれに外字と思われるものがあるのです。
一旦dbに入れてcsvとかで出す時にそのたった１文字のためにそれ以降全部バケちゃうことがあるのです(泣)
0720nobodyさん
05/01/13 15:45:13ID:???メソッドが返す値はただの数字です。
0721nobodyさん
05/01/13 15:55:36ID:???0722nobodyさん
05/01/13 15:57:40ID:???0723nobodyさん
05/01/13 15:58:29ID:???0724nobodyさん
05/01/13 15:59:37ID:???2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
0725nobodyさん
05/01/13 16:05:37ID:???コマンドプロンプトからPerl -cでぷろぐらむのチェックをしたら
syntax okが出るにも関わらずlocalhostからブラウザでやってみると
500エラーが出るのは何故でしょうか？
こういうときはどうやってデバッグすればいんでしょうか？
何が悪いのか検討がつかずに困っています。
0728725
05/01/13 16:16:56ID:???cgi::sessionのコンスラクタ呼び出しの際に3つ目の引数にカーリーブレス？を付けておくのを
忘れてました。
しかし今回は運良く早期発見できましたが、こういうときにいいデバッグ方法あｒましたら
教えてください。
0729nobodyさん
05/01/13 16:19:39ID:???0732nobodyさん
05/01/13 20:18:35ID:???http://pc5.2ch.net/test/read.cgi/php/1104624784/2
0733nobodyさん
05/01/13 20:24:29ID:???Shift_JISなら分からなくも無いけど…。
Shift_JISの「ﾐ」も\xD0。
# またはDBの最新バージョンで人柱状態？
>>719
0xF040から0xF9FCの外字なら、予めチェックするしかないかも。
>>731
?
0734nobodyさん
05/01/13 21:16:56ID:???うまくいきません
sub search1 {
local($dir) = $_[0];
local(@filelist, $file, $filename);
opendir(DIR, $dir);
@filelist = readdir(DIR);
closedir(DIR);
$begin = $FORM{'page'} * $hyouji;
$end = $bigin + $hyouji;
if($end > @filelist) {
$end = @filelist;
}
（続く）
0735734
05/01/13 21:17:55ID:???#foreach $file (@filelist) {
for ($a = $bigin; $a < $end; ++$a) {
if ($file eq ".") { next; }
if ($file eq "..") { next; }
$filename = "$dir/$file";
if (-d $filename) {
if ($recursive_flag) {
&search1($filename);
}
} else {
&search2($filename, $dir);
}
}
if ($end < @filelist) {
$nextpage = $FORM{'page'} + 1;
print "<a href=\"$ENV{'SCRIPT_NAME'}?page=$nextpage\">次へ</a>\n";
}
#}
}
0736734
05/01/13 21:19:50ID:???動作も正常に動いてはいないようです
どなたか知恵を貸してください
よろしくお願いします
0737nobodyさん
05/01/13 21:27:49ID:RpTwbNys$begin
$bigin
use strict
を使う癖をつけましょう。
0738734
05/01/13 21:57:15ID:???ご指摘ありがとうございます
うっかりミスです
しかし直しても動作は変わりありません
構文自体が悪いのでしょうか？
頭がテンパってきました
助けてください…
0739nobodyさん
05/01/13 22:01:32ID:RpTwbNysもうちっと、ソースを整理して晒しておくれ。
search2というのが何なのかも分からないし・・・。
0740734
05/01/13 22:21:11ID:???すみません、インデントつけます
sub search1 {
local($dir) = $_[0];
local(@filelist, $file, $filename);
opendir(DIR, $dir);
@filelist = readdir(DIR);
closedir(DIR);
$begin = $FORM{'page'} * $hyouji;
$end = $bigin + $hyouji;
if($end > @filelist) {
$end = @filelist;
}
（続く）
0741734
05/01/13 22:23:11ID:???for ($a = $bigin; $a < $end; ++$a) {
if ($file eq ".") { next; }
if ($file eq "..") { next; }
$filename = "$dir/$file";
if (-d $filename) {
if ($recursive_flag) {
&search1($filename);
}
} else {
&search2($filename, $dir);
}
}
if ($end < @filelist) {
$nextpage = $FORM{'page'} + 1;
print "<a href=\"$ENV{'SCRIPT_NAME'}?page=$nextpage\">次へ</a>\n";
}
# }
}
0742734
05/01/13 22:29:34ID:???#foreachは最初からあったやつで、コメントアウトしています
&search2はソース長いので説明すると
ループさせてファイルの中身を一文字ずつ検索させてるようです
>740の
$begin = $FORM{'page'} * $hyouji;
$end = $bigin + $hyouji;
if($end > @filelist) {
$end = @filelist;
}
この部分と
>741の
if ($end < @filelist) {
$nextpage = $FORM{'page'} + 1;
print "<a href=\"$ENV{'SCRIPT_NAME'}?page=$nextpage\">次へ</a>\n";
}
が自分で付け足した所です
0743nobodyさん
05/01/14 01:17:04ID:???別スレでやってくれ。
★三 【 スクリプト改造工房 PART 8 】 ★三
http://pc5.2ch.net/test/read.cgi/php/1077525387/ 79にテンプレあり
0744nobodyさん
05/01/14 07:32:45ID:3YybYM3/とやると$hogeは455になるのに、
$hoge=int(1.4*325);
とやると$hogeは454になってしまいます。
他の数字でも起こるようです。何故ですか？
というか、意図した通りにさせる方法はありますでしょうか。
0745720
05/01/14 08:13:20ID:???ありがとうございます。
全然誰も答えないからこのスレ、レベルが下がったのかとおもいました；
数スレ前では自分で誰かに回答してあげた覚えもあるんですが、最近の過去ログは
普通の人は見れないようで。
>>all
お前らもっと精進しろよ、な。
0746nobodyさん
05/01/14 09:27:13ID:AgX5dpSc異なる意味をもつ字を*で連結した上の文字列の中から1字を消して連結用のアスタリスクの数も
正常にする。
ということがしたい場合どういうみんなコーディングする？aとdでは処理が変わるんだよね。
しかしそれをなるべく簡潔にしたい。
0747nobodyさん
05/01/14 09:31:58ID:???慣れていないと面食らうがほとんどのプログラミング言語ではそれが標準仕様。
詳しい説明は「浮動小数点数」「精度」などで検索すれ。
防ぐ方法は幾つかある。まぁこのケースなら1が無難かな。
1. 整数同士の演算にする： 1.4*10*325 (1.4*325*10ではうまくいかないことに注意)
2. sprintfで処理する：sprintf '%f', 1.4*325
3. bignumプラグマ： use bignum;print int(1.4*325) (ただし破滅的なほど遅い)
0749nobodyさん
05/01/14 09:35:33ID:az2EqpkZこの２つの変数内の文字列を比較していって、先頭から同じ文字が続くところまで$hoge2から削除するにはどうすればいいでしょうか。
たとえば、$hoge1=a/b/c/d/,$hoge2=a/b/c/d/e/f/だったら、$hoge2=e/f/としたいのです。
0750746
05/01/14 09:37:35ID:AgX5dpSc$a =~ s/a[*]?//;
$a =~ s/[*]*$//;
0751nobodyさん
05/01/14 10:31:14ID:???？
0752nobodyさん
05/01/14 10:56:17ID:???$a .= '*';
$a =~ s/a\*//;
chop $a;
$aを使うのはお勧めできないがそれは置いておこう。
■ このスレッドは過去ログ倉庫に格納されています