WEBページご教示URL
#! c:/perl/bin/perl$abcdef = './ABCDEF/';$newname = 01 02 03;foreach $abcdef (@NAME) { my $newname = $abcdef; rename($abcdef,$newname) or warn "Couldn't rename $abcdef to $newname: $!￥n";}パソコンしょしんしゃで困っています。よろしくおねがいいたします。すこしまえにしつもんをとうこうしたはずなんですがけんさくしてもでないしメールも届かないしで・・・もういちど投稿させていただきます。いつもお世話になってます。renameについて”ABCDEF”というフォルダにはいっている３つのファイルのなまえをそれぞれ”01,02,03”にしたいときかきのプログラムでだいじょうぶですか？というか、かんせいしていますか？ほかにしなくてはいけないことやまちがいがあったらおしえてください。PerlのCGIでとうこうされた文字をたてがきに。じぶんで出来たのは$message =~ s/(<[^>]+>)|(￥&￥w+;)|([-.!~*'()￥w;￥/?:￥@=+￥$,%#￥[￥]￥^`"{|}]{1})/($3 eq '')?(($2 eq '')?$1:"<BR>$2"):"$3<BR>"/eg;こんなショボーイきじゅつになってしまいまして・・・・これでははんかくえいすうじだけしかたてがきにならないし、おまけにどこまでもいちれつにたてがきにされてつぎのぎょうへいかず、ちょうーくなってしまいます。じっさいにじっこうしたくても”ページがみつかりません”になってかくにんできないし・・・インストールはせいじょうに出来たはずなのに・・・何でですかね？あと、フォルダにはいっているもっとおおくのファイルめいをかえるとき(1000ことか)にはどうしたらいいんですか？よろしくおねがいいたします。どうににか15もじめで</TD><TD>タグをいれてつぎのぎょうへうつれるようにしようとほかのたてがきCGIのなかみをはいけんしたりとけんきゅうしてみたのですがさっぱりわからず・・・どうかたすけていただけないでしょうか。ただいまPerlでフォームからとうこうされたもじが縦書きにひょうじされるようにつくってるのですが…ゆきづまってしまいました。
プログラムサイト追加
じっさいそうなっていたので、よびだし側のひきすうに@ARGVをついかして使ってます。既に解決しているのですが、ふにおちないのでしつもんです。main:{ portget(); …}sub portget(){ $port = shift or die "error.";}このようになっているプログラムをとあるサイトでみつけました。よろしくおねがいします。Perlプログラムとして@ARGVをいれない理由があるのでしょうか？単にわすれただけなのか、Perlのバージョンによっては@ARGVはなくていいとか、なにかそれらしいりゆうがあったら教えてください。この対処ほうほうはだとうでしょうか？（せいじょうにつかえてはいます）また、なぜサイトのさくしゃはこのようなコードにしたのでしょうか？けっこうちゃんとしたサイトなのであやまってかいたとは思えません。（けっこうまえなので、どこだったかはわすれてしまいました）このプログラムの使用方法として、$ perl server.pl portnumとなっていましたが、このままだと、mainのさいしょでportgetがよびだされて、shiftのスコープが@_といぜんおうかがいしましたので、$portにはなにもはいらず、かならずerror.になると思います。$port = shiftでとりだされているものこんばんは、皆さん。