Perlでリクに答えるスクリプトを作るスレ

1 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:(・∀・)ﾁﾝﾎﾟｰ!! [04/06/02 11:39] perl書きなんだがさ、こうリクに答えてなんか作りたいんだ。 だからリクエストをくれ。 403 名前：デフォルトの名無しさん mailto:sage [2006/01/13(金) 17:28:01 ] それDATEじゃなくてDATAだろ 404 名前：デフォルトの名無しさん [2006/01/13(金) 17:37:44 ] >>403 そうです。ほんとごめんなさい。 405 名前：デフォルトの名無しさん mailto:sage [2006/01/13(金) 21:34:26 ] 結局>>397でFAだな 406 名前：デフォルトの名無しさん [2006/01/14(土) 07:43:38 ] そんなぁ・・・ 407 名前：デフォルトの名無しさん mailto:sage [2006/01/14(土) 09:42:00 ] #!/usr/bin/perl use LWP::Simple; $url = 'girls.twistys.net/preview/'; for ($i=1; $i<=500; $i++) { $num = sprintf("%03d", $i); $_ = get($url.$num."/"); s/\w*\d{1,2}\.jpg/push @jpgs, $&/eg; foreach $jpg (@jpgs) { getstore($url.$num."/".$jpg, $num.$jpg); } } 408 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 08:50:23 ] 仲間分けについてのプログラムについて教えてください １番と３番 １番と５番 １番と７番 ２番と６番 ２番と８番 ３番と５番 ３番と１１番 が仲間です 配列には上から 1\t3 1\t5　……のように入っています この時1,3,5,7,11　と　2,6,8　のように仲間に分けるプログラムを作ってください 409 名前：ゆみ [2006/01/16(月) 11:24:17 ] Perl初心者です。教えてください。 日付,メールアドレス 日付,メールアドレス 日付,メールアドレス ・ ・ ・ と数万行も続くデータから、重複メールアドレスが存在したときは その行を取り除くということは出来るのでしょうか。 困っています（；；）教えてください。 410 名前：デフォルトの名無しさん [2006/01/16(月) 11:39:46 ] できるよ 411 名前：ゆみ [2006/01/16(月) 11:44:33 ] どうやればいいのでしょうか？ 是非教えてください。。。 412 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 11:44:49 ] >>409 perl -ne "/,(.+)/ && !$dup{$1}++ && print" in.csv > out.csv 413 名前：ゆみ [2006/01/16(月) 11:51:59 ] >>412 ありがとうございます（*^^*） これはコマンドプロンプト(PC)上で行う処理方法でしょうか？ サーバー上のCGIファイルの中で処理する場合の書き方はありますか？ またin.csvというのが元のデータファイルで、out.csvというのが 出力された新しいファイルですよね？ 414 名前：ゆみ [2006/01/16(月) 12:02:04 ] perl -ne "/,(.+)/ && !$dup{$1}++ && print" in.csv > out.csv これも試してみましたがうまくいきません。 1万行以上あるのに新しく作られたファイルは60行足らず。 もしかすると私の説明不足なのかもしれません。 重複したメールアドレスの存在しない日付,メールアドレス のリストを作りたいのですが。。。 意味わかりますでしょうか（＊＊）ごめんなさい。。。 415 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 13:54:12 ] >414 m月d日に誰からメールが来てるかのリストを作るのか？ だったらDBに読み込んでクエリ書いた方が手っ取り早いと思われ。 SELECT dateval, addr FROM infile GROUP BY dateval, addr; 416 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 15:43:02 ] >>414 てことはまず日で分けて、その中に同じアドレスがあっても1つで出すということだな。 じゃあこれを参考に作れ。 my %data; while (<>) { 　chomp; 　if (/^([^,]+),(.+)$/) { 　　$data{$1}{$2} = 1; 　} } for my $day (sort keys %data) { 　for my $addr (sort keys %{$data{$day}}) { 　　print "$day,$addr\n"; 　} } 417 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 15:45:47 ] >>408 何がどう仲間なのか全然分からん。 もっと詳しく説明するように。 418 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 19:15:13 ] >>408 こんなのか？データは標準入力から。 my @ary=(); my @index=(); sub pushme($$) { my ($ary,$val)=@_; my $i; for($i=$val;!UNIVERSAL::isa($ary->[$i],'ARRAY');$i=$ary->[$i]){} push(@{$ary->[$i]},$val); } while($_=<STDIN>){ /^(\d+)\t(\d+)$/; if(defined($ary[$1])){ $ary[$2]=$1; pushme(\@ary,$2); }elsif(defined($ary[$2])){ $ary[$1]=$2; pushme(\@ary,$1); }else{ my @newary=($1,$2); $ary[$1]=\@newary; $ary[$2]=$1; } foreach(@ary){ if(ref($_) && ref($_) eq 'ARRAY'){ print join(",",@$_)."\n"; } } 419 名前：418 mailto:sage [2006/01/16(月) 19:18:56 ] 本当は sub pushme に \@ary 渡すのは蛇足。 渡さなくともここでは @ary は有効なスコープ。 420 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 20:08:55 ] >>408 @list = ( "1\t3", "1\t5", "1\t7", "2\t6", "2\t8", "3\t5", "3\t11" ); $tmpstr .= join ':', map "\t$_", @list; 1 while $tmpstr =~ s/(\t\d+)((?:\t\d+)*):((?:[^:]*:)*)((?:\t\d+)*)\1((?:\t\d+)*)(?::|$)/$1$2$4$5:$3/; 1 while $tmpstr =~ s/(\t\d+)((?:\t\d+)*)\1(?=\t|:)/$1$2/; @grouping = map [/(\d+)/g], split ':', $tmpstr; $" = ","; print "@{$grouping[0]}と@{$grouping[1]}\n"; 421 名前：408 [2006/01/16(月) 21:04:13 ] 配列に@nakamaに上から $nakama[0]="1\t3"; $nakama[1]="1\t5"; …… という風に入っていて、それぞれ１と３は仲間、１と５は仲間という意味になっています。 １と３が仲間で、３と１１が仲間であれば１と１１も仲間とします。 これで>>408を 1,3,5,7,11と　2,6,8に分けたいのです。 422 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 21:06:04 ] >>420 おお、更新していなくて分かりませんでした。 それでうまく出来ました。ありがとうございます！ 423 名前：ゆみ [2006/01/16(月) 23:00:24 ] 409です。>>416さん有難う御座います。。。 私はホントに初心者で・・・説明べたで申し訳御座いません。 416さんのは同じ日付内で同じメアドがあった場合、排除するという 内容でしょうか？ たとえば 1月1日,aaa@aaa.aa.aa 1月1日,bbb@bbb.bb.bb 1月1日,ccc@ccc.cc.cc 1月2日,aaa@aaa.aa.aa 1月2日,bbb@bbb.bb.bb 1月3日,bbb@bbb.bb.bb 1月3日,aaa@aaa.aa.aa 1月4日,ccc@ccc.cc.cc とあった場合、 ↓↓↓変換後↓↓↓↓ 1月3日,bbb@bbb.bb.bb 1月3日,aaa@aaa.aa.aa 1月4日,ccc@ccc.cc.cc というように同じメアドが重複しないように更に日付は最新（最下段） の日付を付けてリスト化したいのです。。。 日付は最上段のものでも構いませんが。。。 出来れば。。。できれば。。。データファイルの読み込み部分から 解説して頂けないでしょうか。。。DBではなく、テキストファイルなんです。。。 本当にすみません（＞＜）（；；） 424 名前：デフォルトの名無しさん [2006/01/16(月) 23:19:38 ] ファイル読み込みくらいなら、perl入門のサイトや本で調べられるだろ 425 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 23:25:50 ] >>423 初心者初心者連呼するならエクセルのフィルタ使うとかにしたほうがいいんでない？ 426 名前：ゆみ [2006/01/16(月) 23:33:08 ] >>424厳しいお言葉・・・有難う御座います。 ではファイルの読み込み部分は結構です。。。 >>425それでは意味がないのです。。。 お願いします！！！（；；） 427 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 23:39:52 ] こんな擦れ合ったのか〜 次の答えを教えてください。 以下のタグを結合したい。 (1)<M>hogeM</M><X>hogeX</X> →　 <X>hogeMhogeX</X> (2)<X>hogeX</X><M>hogeM</M> →　 <X>hogeXhogeM</X> (3)<M>hogeM</M><X>hogeX</X><M>hogeM</M>　　 → <X>hogeMhogeXhogeM</X> ※<M>hogeM</M><X>hogeX</X><M>hogeM</M><X>hogeX</X>　は結合しない。 ＜例＞ ※以下は一行で、\ は連結の意味です。 ......hoge.......<M>hogeM</M><X>hogeX</X>.....\ ........hoge......<X>hogeX</X><M>hogeM</M>.....\ .....hoge.........<M>hogeM</M><X>hogeX</X><M>hogeM</M>...\ .........<X>hogeX</X>................<M>hogeM</M>..\ ..<M>hogeM</M><X>hogeX</X><M>hogeM</M><X>hogeM</X> ↓ ......hoge.......<X>hogeMhogeX</X>.......\ ......hoge......<X>hogeXhogeM</X>..........hoge....\ .....<X>hogeMhogeXhogeM</X>............<X>hogeX</X>...\ .............<M>hogeM</M>...\ .<M>hogeM</M><X>hogeX</X><M>hogeM</M><X>hogeM</X> 正規表現でも、何でもOKなのでお願いします。 428 名前：デフォルトの名無しさん [2006/01/16(月) 23:52:53 ] 難しかったかな？ 429 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 00:12:25 ] >>427 ヒント: 解く奴も人間 430 名前：デフォルトの名無しさん [2006/01/17(火) 00:36:53 ] >>427 無理 431 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 01:53:26 ] >>426 意味がないってどういうこと？ csvをエクセルに読み込んで重複を消すだけじゃないの？ 知識らしい知識もいらんし煽りじゃなくあなたのような人向けだと思うが。 432 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 01:59:03 ] >>413でCGIで動かしたいってあるよ 433 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 02:50:39 ] >>423 while (<$fh>) { chomp; my($date, $mail) = split /,/; $mails{$mail} = $date; } 後は自分で何とかしろ。 434 名前：ゆみ [2006/01/17(火) 10:20:52 ] >>433さん　素敵です！ あまりハッシュって使ったこと無かったので・・・ 出来ました！！！有難う御座います！！！ 435 名前：デフォルトの名無しさん mailto:sage [2006/01/25(水) 21:48:54 ] <2></2>を削除する正規表現教えて (例) .....<1>.....<2>....</2>....<1>..... 　　　↓ .....<1>.............<1>..... 436 名前：デフォルトの名無しさん [2006/01/25(水) 21:50:42 ] s/.....<1>.....<2>....</2>....<1>...../.....<1>.............<1>...../g 437 名前：デフォルトの名無しさん mailto:sage [2006/01/25(水) 21:51:45 ] >>435だけど 間違えた。 <2></2>を削除する正規表現教えて (例) .....<1>.....<2>....</2>....</1>..... 　　　↓ .....<1>.............</1>..... 438 名前：デフォルトの名無しさん mailto:sage [2006/01/25(水) 23:08:10 ] 正規表現の基礎の基礎じゃないか 439 名前：マル mailto:sage [2006/01/26(木) 01:37:34 ] 掲示板スクリプトで、名前が「あ」か「い」か「う」の人以外は書き込みできない、 という風にする場合 if ($name !/あいう/) { &error("名前が間違っています",'NOLOCK'); } ではないですよね。 「あ」か「い」か「う」というのはどう書けばいいでしょうか。 440 名前：& ◆p8OCeNXbYU mailto:sage [2006/01/26(木) 01:43:21 ] すみません。実際には「あ」か「い」か「う」ではなく、 「一」か「二」か「三」か・・・「三十五」か「三十六」という風になります。 一〜三十六までの漢数字を入れなければ投稿できない、という風にしたいのです。 自動で貼られてしまう広告よけのためなのですが、 何卒よろしくお願い致します。 441 名前：マル [2006/01/26(木) 01:50:09 ] 440=439です。 442 名前：& ◆p8OCeNXbYU mailto:sage [2006/01/26(木) 02:34:09 ] すみません。できました。 |で区切ればorの意味になるようでした。 if ($name !~/一|二|三/) { &error("名前が間違っています",'NOLOCK'); } というような感じで動きました。失礼しました。 443 名前：デフォルトの名無しさん mailto:sage [2006/01/26(木) 03:41:24 ] これも正規表現の基礎の基礎の基礎だよな・・ マジで・・ 444 名前：デフォルトの名無しさん mailto:sage [2006/01/26(木) 10:33:45 ] <2>.*?</2> 445 名前：デフォルトの名無しさん mailto:sage [2006/01/26(木) 12:21:36 ] >>444 ><2>.*?</2> ".*?"という文字列はGoogleで検索できないため、申し訳ありませんが、 意味を教えていただけますでしょうか？ .*は文字の0個以上（.+は１個以上）にマッチだと思いますが、これに?が付いた .*?がいまいち、よく分かりません。 446 名前：デフォルトの名無しさん mailto:sage [2006/01/26(木) 12:50:59 ] >>445 Perl はググる前に perldoc 。 www.kt.rim.or.jp/~kbk/perl5.005/perlre.html#Regular_Expressions 447 名前：デフォルトの名無しさん mailto:sage [2006/01/27(金) 11:51:12 ] >>442 use encoding でエンコード指定しておいて $name !~ /[あいう]/ で判定する方がいいと思う。 448 名前：デフォルトの名無しさん mailto:sage [2006/01/27(金) 11:54:17 ] >>445 最小マッチ デフォルトは最大でマッチする。 たとえば 'abcabcabcabc' という文字列に対して /a.*a/ は 'abcabcabca' の部分がマッチするが /a.*?a/ だと 'abca' がマッチする。 449 名前：sage mailto:sage [2006/01/27(金) 17:48:26 ] >>448, 446 ありがとうございます。 >最小マッチ Perl歴１７年ですが、この正規表現は見落としていました。 わざわざ、(1)のような書き方をしてきましたが、 (1) <2>[^<]*</2> (2)の方が読みやすいですね？　 (2) <2>.*?</2> 勉強になりました。 450 名前：デフォルトの名無しさん mailto:sage [2006/01/27(金) 17:53:34 ] はぁ、どうして下らない嘘をつくかな 451 名前：デフォルトの名無しさん mailto:sage [2006/01/27(金) 17:54:23 ] >>449 詳説 正規表現 第2版まじおすすめ 452 名前：デフォルトの名無しさん mailto:sage [2006/01/27(金) 19:28:06 ] Perl 歴 17 年で正規表現もまともに使えないなんて、そんなの「歴」のうちに入らんよ。 453 名前：449 mailto:sage [2006/01/27(金) 21:55:45 ] >>452 >Perl 歴 17 年で正規表現もまともに使えない 正規表現の基本が分かっていなかったので、人にPerlを教える のは無理でしょうが、研究機関の仕事を主にPerlでこなして きたことは嘘ではありません。どんな書き方でも、限られた 時間内にバグがないスクリプトが書ければ、仕事がこなせま す。 perlの良いところは、Larry Wallが言うように、>> 449 の (1)でも(2)でも、様々な方法で目的が達成できる点です。 454 名前：デフォルトの名無しさん mailto:sage [2006/01/27(金) 22:01:37 ] なんつーか・・ 一生VB・HSPやってるようなモンだな 進歩がなけりゃただの・・ 455 名前：デフォルトの名無しさん mailto:sage [2006/01/27(金) 22:12:42 ] 449 の2しか知らん 456 名前：デフォルトの名無しさん mailto:sage [2006/01/27(金) 23:32:19 ] >>453 こなせてないじゃん。 >>435 程度のことも人に聞かないと出来ないんだろ？ 457 名前：デフォルトの名無しさん mailto:sage [2006/01/28(土) 14:14:55 ] Perl って1987年12月生まれなんだな。18年前か history.perl.org/PerlTimeline.html まあ17年前からPerl(というかUNIX)やってて正規表現知らないなんて ありえない 458 名前：デフォルトの名無しさん mailto:sage [2006/01/28(土) 15:43:49 ] 「Perlプログラマのレベル10」 ttp://d.hatena.ne.jp/naoya/20050809/ のレベル5に > 多くの人たちがこのレベルを超えないのは、たとえ非効率であっても、 > 再利用可能なコンポーネントの作成を除けば、ほどんど何でもできるからである。 とあるように、必要性を感じられなければそれ以上のものはなかなか知ることが出来ないんだろうね…人間ってのは。 この機会にPerl5の奥深さを学んでみたらどうだ？その霧の先には素晴らしい世界が広がっているぞ 459 名前：デフォルトの名無しさん mailto:sage [2006/01/28(土) 17:48:46 ] >>457 最短マッチが使えるようになったのはPerl5以降だよ。 それ以前に覚えた正規表現をそのまま使い続けていたんだろうね。 460 名前：デフォルトの名無しさん mailto:sage [2006/01/28(土) 18:00:14 ] ああ、最短マッチを知らなかったってことだったのか 斜め読みしてた 461 名前：デフォルトの名無しさん mailto:sage [2006/01/30(月) 15:42:23 ] >>449 くっ。負けた。俺、Perl歴16年。 462 名前：デフォルトの名無しさん [2006/01/31(火) 17:18:44 ] お願いします。 ♂ﾁｰﾑと♀ﾁｰﾑが2つのｺｰﾄで♂♀別総当り戦をしたく 両ｺｰﾄ同時進行として ♂が4ﾁｰﾑ・♀が2ﾁｰﾑの場合･･･ 【Aｺｰﾄ】　　【Bｺｰﾄ】 ♂1-♂2　♂3-♂4 ♀1-♀2　♂1-♂3 ♂2-♂4　♀1-♀2 ↑の3回戦で総当りになる。 では♂が7ﾁｰﾑ・♀が3ﾁｰﾑってなったとき どう組み合わせればよいかみたいなのを計算させたいです。 できれば3連ﾁｬﾝとかで試合することにならないように･･･ 463 名前：デフォルトの名無しさん mailto:sage [2006/01/31(火) 17:30:13 ] >>462 ♀1-♀2 が2回あるのはただの総当りではないと思われるが どういう規則なのかね? 464 名前：デフォルトの名無しさん mailto:sage [2006/02/01(水) 11:03:17 ] >>463 ｽﾐﾏｾﾝ間違いです･･･。 ♂が4ﾁｰﾑ・♀が2ﾁｰﾑの場合･･･ 【Aｺｰﾄ】　　【Bｺｰﾄ】 ♂1-♂2　♂3-♂4 ♀1-♀2　♂1-♂3 ♂2-♂4　　 - 465 名前：デフォルトの名無しさん mailto:sage [2006/02/05(日) 15:52:03 ] >>462 こうですか？　わかりません。 use strict; use warnings; local($a,$b); my(@t,@p,@f,@ct,$w,$i,$j,$k); ($t[0],$p[0])=('',$f[0]='0'); $t[$_]='♂'.$_,$p[$_]=0,$f[$_]='011111111000',substr($f[$_],$_,1)='0' for (1..8); $t[$_]='♀'.($_-8),$p[$_]=0,$f[$_]='000000000111',substr($f[$_],$_,1)='0' for (9..11); @ct=('A:',' B:'); do { ++$_ for (@p); for (@ct) { $a=$b=$w=0; for $k (1..$#p) { $i=$j=0; ($i,$j) = ($p[$_]>$j && substr($f[$_],$k,1))?($_,$p[$_]):($i,$j) for ($k..$#f); ($a,$b,$w) = ($k,$i,$j<$p[$k] ? $j : $p[$k]) if $p[$k] && $j && ($w<$p[$k] || $w<$j); } print $_,$t[$a],'−',$t[$b]; $b=$p[$a]=$p[$b]=substr($f[$a],$b,1)=substr($f[$b],$a,1)=0; } print "\n"; $b+=/1/ for (@f); } while($b); 466 名前：デフォルトの名無しさん mailto:sage [2006/02/06(月) 13:29:43 ] >>462 CPAN には、順列、組み合わせを扱う Algorithm::Permute というモジュールがある。これが使えるんじゃないの？ （オレは使ったことは無いけど） 467 名前：デフォルトの名無しさん mailto:sage [2006/02/08(水) 10:27:13 ] 総当たりの全組合せを求めた後で、それの並べ方を考えればいいのでは ないだろうか。同じチームがなるべく連続しないようにするなど。 そして最後にコート分けする。 468 名前：デフォルトの名無しさん [2006/02/11(土) 11:07:49 ] 直リンクが不可能なアップローダー　cgi あったら便利だと思う 直リンクされたことによって消滅するアップローダは多いからな perl で書かれたものキボン 469 名前：デフォルトの名無しさん mailto:sage [2006/02/11(土) 13:48:02 ] マルチ pc8.2ch.net/test/read.cgi/tech/1138519327/308 470 名前：デフォルトの名無しさん mailto:sage [2006/02/11(土) 13:49:32 ] >>468 ってかんなもんすでにあんだろが 471 名前：デフォルトの名無しさん [2006/02/12(日) 06:11:09 ] >>470 直リンクを不可能にするような状態のcgiアップローダのスクリプトって配布されてる？ されていないんじゃ？ 472 名前：デフォルトの名無しさん mailto:sage [2006/02/12(日) 11:00:38 ] REFERER が期待する値以外だったらリジェクトするだけじゃん 473 名前：デフォルトの名無しさん mailto:sage [2006/02/24(金) 06:43:47 ] /***:****/にソケット飛ばしてHTMLデータを引っ張ってくるにはどうしたらいいですか？ 474 名前：デフォルトの名無しさん mailto:sage [2006/02/24(金) 08:44:13 ] >>473 ソケットは飛ばない。 perl -MLWP::Simple -e "get q|www.example.com/path/to/file.html|" 475 名前：デフォルトの名無しさん [2006/02/27(月) 01:08:32 ] ファイル内の　*.gif　を　*.bmpへ変換するプログラム作ってもらえませんか？ 正規表現だったらどうなるでしょうか？ 476 名前：デフォルトの名無しさん [2006/02/27(月) 01:11:06 ] 拡張子だけ(名前の変更(M))だけ、できればよいので、、、。 変更しなければならないものが100近くあるので^^;助けてください 477 名前：デフォルトの名無しさん mailto:sage [2006/02/27(月) 01:21:50 ] >>475 そんな見当違いな質問をしてると perlのスクリプトを書いても「どうやって実行するんですか？」 とか聞かれそうだと思われて誰にも相手されないよ 478 名前：デフォルトの名無しさん mailto:sage [2006/02/27(月) 01:28:06 ] >>475 名前の変更(M)とか書いてる所を見るとWindowsだと思うが、 ファイル名をマジで変えるだけなら、DOS窓で C>CD 変えたいファイルがあるディレクトリ C>RENAME *.gif *.bmp でいいんじゃマイカ？ UNIX系なら % cd 変えたいファイルがあるディレクトリ % mv *.gif *.bmp どちらにしろ同じか。 ※　データ形式は変わらないから開けなくてもしらん。 479 名前：デフォルトの名無しさん mailto:sage [2006/02/27(月) 01:48:34 ] >>478 > % mv *.gif *.bmp > % mv *.gif *.bmp > % mv *.gif *.bmp > % mv *.gif *.bmp > % mv *.gif *.bmp > % mv *.gif *.bmp 480 名前：デフォルトの名無しさん mailto:sage [2006/02/27(月) 03:01:53 ] >>478 それは Windows/DOS じゃないと使えない技だぞ。 481 名前：デフォルトの名無しさん mailto:sage [2006/02/27(月) 03:34:00 ] 「名前の変更(M)」って書いてるくらいだから Windows前提で答えれば良いっしょ 482 名前：デフォルトの名無しさん mailto:sage [2006/02/27(月) 11:36:48 ] >>475はファイル名だけ変えたいんだね。 拡張子がbmpであるgifファイルを作りたいんだね。 いや、きっとそうなんだろうね。質問の内容からして そうだし、他の人もそう理解しているようだし。 483 名前：デフォルトの名無しさん mailto:sage [2006/02/27(月) 12:17:25 ] perl -pi -e "s/\.gif/\.bmp/g" <ファイル> 484 名前：デフォルトの名無しさん mailto:sage [2006/02/27(月) 15:27:57 ] >>478 有難うございました。WinとLinux（UNIX）では、コマンドが違うからsystem()関数を使っても 同じプログラムとはいかないわけでしたね。 それに、Perlを使わなくてもできるんですね。 Cで書かれたコマンドがすでにあるからこれを使わない手は無いですね。OSにです。 485 名前：デフォルトの名無しさん mailto:sage [2006/02/27(月) 15:30:28 ] 今だCでプログラム書いたり、Cで書かれたexeばかり使っているので、手持ちのperlスクリプトを増やしたかった訳でした。。 486 名前：デフォルトの名無しさん mailto:sage [2006/02/27(月) 15:31:53 ] いつもCで事足りてしまうみたいです。。有難うございました。 487 名前：デフォルトの名無しさん mailto:sage [2006/02/27(月) 15:34:07 ] UNIX（Linux）とWindowsのコマンドが違う以上、汎用的なものを作るのってなかなか難しいですね。。。。？ 488 名前：デフォルトの名無しさん mailto:sage [2006/02/27(月) 15:35:30 ] 本当、Cプログラマで良かったとつくづく思います。。 489 名前：デフォルトの名無しさん mailto:sage [2006/02/27(月) 19:52:06 ] 日記はチラシの裏に 490 名前：デフォルトの名無しさん [2006/02/28(火) 00:02:26 ] リアルで会ったら頭蹴り飛ばしてやんのに 491 名前：デフォルトの名無しさん [2006/02/28(火) 00:24:24 ] >>490 乙ｗ死ねｗ 492 名前：デフォルトの名無しさん [2006/02/28(火) 00:26:39 ] >>490 リアルで会ったら頭蹴り飛ばして殺してやるのにｗ 493 名前：490 [2006/02/28(火) 00:32:52 ] 人格異常者だと思われてるから、普段リアルで誰にも相手されないよ〜 494 名前：490 [2006/02/28(火) 00:37:48 ] 会社訪問した際、面接官に目が包丁のようだよと言われますた。 腹が立ったので、帰る際後ろから面接官の頭蹴り飛ばしてやりました。 電車に乗ると、たくさんのひとの頭を蹴り飛ばさなければならないので 怖くて乗れません。 495 名前：490 [2006/02/28(火) 00:39:55 ] 別にいつ死んでもいいので、PG組んでます。 496 名前：デフォルトの名無しさん mailto:sage [2006/02/28(火) 00:42:55 ] (;´д`) 497 名前：デフォルトの名無しさん mailto:sage [2006/02/28(火) 00:45:32 ] 世の中みんないい人ばかりじゃないしねぇ 498 名前：490 [2006/02/28(火) 00:46:15 ] ファイル内って書いてて答えがこれ？ C>RENAME *.gif *.bmp 死ね 499 名前：490 [2006/02/28(火) 00:53:16 ] 491-495 で、だれ？おまえら 500 名前：デフォルトの名無しさん mailto:sage [2006/02/28(火) 00:58:17 ] おれだよ、おれ 500 501 名前：デフォルトの名無しさん mailto:sage [2006/02/28(火) 01:00:00 ] とりあえずここには >>478以外、まともな人間はいなさそうだｗ 502 名前：490 [2006/02/28(火) 01:01:11 ] これ書いてる奴が？ % mv *.gif *.bmp 503 名前：デフォルトの名無しさん mailto:sage [2006/02/28(火) 01:03:27 ] >>490 (;´д`) いや　話しかけてこないで。さよなら

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef