09/03/01 12:28:07
使用環境はWindows+ActivePer5.10.0lです
$file = "テスト";
open FH, ">$file"; →失敗
open FH, '>$file'; →書き込めるが当然変数展開がされない
open FH, ">テスト"; →成功
open FH, '>テスト'; →成功
ファイル名を変数を使わずに直接記述するとうまくいきました
変数に格納されている文字列の形式がおかしいのかな…
193:デフォルトの名無しさん
09/03/01 12:35:19
>>192
調べてないけど、2回""で囲ってるからメタ文字が二度発動してるんだと思われ。
194:デフォルトの名無しさん
09/03/01 12:37:40
まあ、Shift_JIS文字列はいかなる場合でもメタ文字に気をつけるのが吉。
ダメ文字という言葉は知っておいた方がいい。
195:デフォルトの名無しさん
09/03/01 13:24:19
時々ファイル名にもIOレイヤみたいな仕組みが欲しくなるね。
196:デフォルトの名無しさん
09/03/01 13:45:53
ダメ文字の対処法としてメジャーなのが
$a = '十\';
だと思うが、探すのもメンテも面倒だしなんかイラッとくるから、
$a = <<'EOF';
十
EOF
chop($a);
とするようにしてる。
197:デフォルトの名無しさん
09/03/01 13:47:50
つーかそんな面倒なことしなくてもqwで何とかなるような気がしてきた。
昔はqwなかったからその時の流儀をそのまま使ってる。
198:デフォルトの名無しさん
09/03/01 13:53:03
あー久しぶりにこのコード書くなと思ったら、最近はUTF-8でコード書いて出力時変換だな。
連投ｽﾏｿ
199:デフォルトの名無しさん
09/03/01 17:07:13
>>190-198 のような話題を解決するために
>>4のテンプレがあるのにな。
200:190
09/03/01 19:41:26
open ">$file";
ならファイルが作成できるんですが、
open ">$file.txt"にするとだめでした
事前に$file .= ".txt";
で文字結合してもだめでした
201:デフォルトの名無しさん
09/03/01 19:48:27
file="テスト"なんだよね？
ソースファイルのエンコーディングは何？
もしSJISでなければSJISにしてみては？
202:デフォルトの名無しさん
09/03/01 19:49:52
ってSJISって書いてあった。すまん
203:190
09/03/01 19:53:45
ソースファイルのエンコーディングはSJISです
open ">テスト.txt";はできます
末尾に.txtを文字結合すると書き込めなくなるようです
204:190
09/03/01 20:00:43
Dumpしてみたら原因がわかりました
改行コードを含んでいたようです
スレ汚し失礼しました
205:デフォルトの名無しさん
09/03/01 22:41:48 BE:1417729695-2BP(192)
Perrrrrrrrrrrrrrrrrrrrrrrrrrrrnrrrrrrl
206:デフォルトの名無しさん
09/03/03 13:58:07
オブジェクト指向の勉強中なんだが…
my(%ch, $i);
$i = 0;
sub new{
my($pkg, $data) = @_;
$ch{$i} = $data;
my $self = {obj_num => $i ++};
return bless $self, $pkg;
}
sub DESTROY{
delete $ch{$_->{obj_num}};
}
カプセル化ってこんな感じでいいの？
自分で動かした感じは問題なさそうだけど普通のオブジェクトとアクセサしか使えないだけで同じ動作する？
207:1/2
09/03/03 17:18:15
$iがゴニョゴニョとか$_って何よ？とかあるが…それを差し引いて
どのレベルでのカプセル化を言っとるんだ？
その例だと、呼出元にて、$obj->{obj_num} = 10 ; とかしてobj_numに
直接代入可能だから、その点ではカプセル化されたとは言えん。
只、編集とか継承とかしない限りにおいて、$ch{$obj->{obj_num}} には
アクセス出来ん事だけは確かだ。ゲッタねえし。
インサイドアウトオブジェクトレベルの意味ならば以下に簡単な例。
Hoge2は（恐らく）貴方の目指してた物をインサイドアウトで実現してる。
new時に投入した'hoge'がアクセサを介さず変えられるか？がポイント。
package Hoge; #=== カプセル前 ===
sub new { bless { data => pop }, shift ; }
sub setter { shift->{data} = pop ; return ; }
sub getter { shift->{data} }
1;
package Hoge2; #=== カプセル後 ===
use Scalar::Util qw(refaddr) ;
my %hash ;
sub new { my $obj = bless \do{''}, shift ; $hash{ refaddr $obj } = shift ; $obj ;}
sub getter { $hash{ refaddr shift} ; }
sub setter { $hash{ refaddr shift} = pop ; return ; }
sub DESTROY { delete $hash{ refaddr shift } ; }
1;
208:2/2
09/03/03 17:18:54
package main ; #=== 実行 ===
use Data::Dumper ;
use Hoge;
use Hoge2;
my $obj = Hoge->new('hoge') ;
print Dumper $obj ; # ほら丸見えだし、
$obj->setter('fuga') ; # 折角セッタでセットしても
$obj->{data} = 'bar' ; # カプセル化出来てねえよ。
print $obj->getter . qq{\n} ; # ほらね、変えられちゃった
my $obj2 = Hoge2->new('hoge') ;
print Dumper $obj2 ; # bless先がdo{ }で弄り様もねえしなあ。
printf "%s\n", $obj2->getter;
$obj2->setter('fuga') ; # 専用のセッタを用いて漸く変更可能。
printf "%s\n", $obj2->getter;
#Hoge2を以下の様に書いてるサイト（有名所）もあるが、大ポカだから注意！
#package Hoge2;
#my %hash ;
#sub new { my $obj = bless \do{''}, shift ; $hash{ $obj } = shift ; $obj ;}
#sub getter { $hash{ shift } ; }
#sub setter { $hash{ shift } = pop ; return ; }
#sub DESTROY { delete $hash{ shift } ; }
#1;
長文失礼
209:デフォルトの名無しさん
09/03/03 19:46:08
>>207
それそれ、それ完璧
Scalar:Util の refaddr がよく分からんけど、Dumper に見てもらった限りだとオブジェクトごとに固有の数字を割り振ってくれる感じなのかな？
とりあえずゲッターとセッター書いたのに、
使わなくても自由に書き換えできるなら書く意味ないじゃんってのが気持ち悪かったから、
それが解消できればよかった
$iゴニョゴニョはrefaddrの代わりにオブジェクトごとに固有の数字を割り当てるために使ってたつもり
$_はミスです
後でScalar::Utilについては色々詳しく調べてみます、丁寧にありがとう
助かりました
210:デフォルトの名無しさん
09/03/04 19:05:23
>>208
どこらへんが大ポカなの？
211:デフォルトの名無しさん
09/03/05 09:30:59
ゥーperlーパー
212:デフォルトの名無しさん
09/03/05 11:27:45
Perlかわいいよ
213:デフォルトの名無しさん
09/03/07 01:50:07
*Hoge::huga = /&hogehoge('hugahuga');
としたときに引数が設定されたメソッドが生えると思います
ですが
Hoge::huga('hogehoge');
としてもhogehogeは無視されるようです
設定した引数に加えて更に引数を追加する方法は無いでしょうか
214:デフォルトの名無しさん
09/03/07 04:47:47
>213
> *Hoge::huga = /&hogehoge('hugahuga');
> としたときに引数が設定されたメソッドが生えると思います
本当？
> 設定した引数に加えて更に引数を追加する方法は無いでしょうか
*Hoge::huga = sub { hogehoge('hugahuga', @_); };
215:デフォルトの名無しさん
09/03/07 12:31:20
>>213
つ Sub::Curry
216:デフォルトの名無しさん
09/03/07 13:32:36
SUPERAntiSpywareでスキャンしていたら、
Adware.Vundo/Variant [ 4 items ]
Files
C:\PERL\LIB\AUTO\FCNTL\FCNTL.DLL
C:\PERL\LIB\AUTO\LIST\UTIL\UTIL.DLL
C:\PERL\LIB\AUTO\MIME\BASE64\BASE64.DLL
C:\PERL\LIB\AUTO\SOCKET\SOCKET.DLL
と検出されていました。
昔、perlをインストールした憶えはあるのですが、入れた経緯は忘れてしまいました。
これって誤検出ですよね？
誰かSUPERAntiSpyware入れてる方で、検出された方いますか？
217:デフォルトの名無しさん
09/03/08 12:29:04
perlとawkの使い分けってどうするんでしょうか？
perlが使えればawkでできることは全てできる、それはわかってるんです。
でも、awk使う人ってawk単独で使うわけじゃなくてbash，sed，grepなんかも使えるから
結局出来ることに違いはないですよね。
むしろやる内容によってはawkのほうがスッキリ書けますし。
どういった場合にどちらを使えば良いのか教えて下さい。
※awkは古いからダメとか、ダサいとか、そういうのは抜きにして下さい。
純粋に有用性の観点のみでお願いします。
218:デフォルトの名無しさん
09/03/08 12:35:53
自分が楽だと思う方でいいと思うよ
219:デフォルトの名無しさん
09/03/08 12:43:15
>>218
やっぱり楽なほうを選ぶのが賢明ですか。
Windowsだとperl単独のほうが環境を整えやすいでしょうね。
UNIXやLinuxだったら最初から色々入ってるのが普通ですけど。
Cygwinとか入れてよければどちらでも手間は変わらない気がしますけど、
学校や会社のPCなんかだと、何かインストールするのに許可が必要だったりしますし。
220:デフォルトの名無しさん
09/03/08 12:47:41
>>217
元awk使いだけど。言語的なメリットはないと思うよ。
Perlはawkの後方互換を目指した言語だからね。awk2perlっつって
awkスクリプトをPerlスクリプトに置換するものがあるのは最近の人は知らなさそう。
ちなみにPerlにはawk互換のためだけに作られた機構がいくつかある。
awkのメリットは必ずプリインストールされているから
root権限持ってない場合でも必ず動くってとこだけど、
今日びデフォルトでPerlが入らないケースは稀だろうから、
このメリットも失われつつある。
長いことCGIプログラマをやってきたけどPerl覚えてからawkを使う機会は
上記のようなケースを除いてゼロになったな。特にここ10年は全く書いてない。
221:デフォルトの名無しさん
09/03/08 12:51:19
>>220
a2pで変換すると長～いスクリプトに変換してくれますよね。
あれってどうにかならないでしょうか。
あれ見るとawkのほうが簡単じゃん、って思ってしまうんですよ。
222:デフォルトの名無しさん
09/03/08 12:57:02
>>221
いやいやa2pは人工知能じゃないし、最適化とかはしないから
長くなるのは仕方ない。
awkはバイナリ扱えないとか(今は知らんけど)文字コード変換が大変とか
色々制約あるし、書くのもPerlの方が楽だよ。
223:デフォルトの名無しさん
09/03/08 13:06:22
>>222
>いやいやa2pは人工知能じゃないし、最適化とかはしないから
>長くなるのは仕方ない
私もそれはあるだろうなぁ～、と思ってましたけど、やっぱりそうですか。
>awkはバイナリ扱えないとか(今は知らんけど)文字コード変換が大変とか
>色々制約あるし、書くのもPerlの方が楽だよ。
シェルスクリプトでバイナリは扱えますよね。
nkfとかconvmvとか使うと文字コード変換できますね。
でも、やっぱりperlのほうが楽なのですか？
もし楽ならperlを学んでみたいなぁ、と思います。
224:デフォルトの名無しさん
09/03/08 13:13:58
>>223
でもやっぱりPerlが楽ですね。awkより短く速く書けるよ。
225:デフォルトの名無しさん
09/03/08 13:23:11
何しろLarry Wallがawkの弱点に音を上げて、awkの欠点弱点を
補うべく作られた言語だからね。そもそもは。
226:デフォルトの名無しさん
09/03/08 14:02:19
awkはできることが少ない。
でも当たり前だよな。
sedはできることが少ない。
grepはできることが少ない。
wcは、mvは・・・
って、言えばその通りだが、
単独で使うわけじゃないから気にするようなことでもない。
一つで何でもやれるようになんていうLarry Wallがバカなだけ。
227:デフォルトの名無しさん
09/03/08 14:37:32
perlとsedの使い分けってどうするんでしょうか？
perlが使えればsedでできることは全てできる、それはわかってるんです。
でも、sed使う人ってsed単独で使うわけじゃなくてbash，awk，grepなんかも使えるから
結局出来ることに違いはないですよね。
むしろやる内容によってはsedのほうがスッキリ書けますし。
どういった場合にどちらを使えば良いのか教えて下さい。
※sedは古いからダメとか、ダサいとか、そういうのは抜きにして下さい。
純粋に有用性の観点のみでお願いします。
228:デフォルトの名無しさん
09/03/08 14:56:45
>>227
perlとperl以外で同じことをやってみれば違いがわかるだろう。
大雑把な傾向として、シェルスクリプトのほうが覚えることが少なく、
簡単なことは簡単にかける。
日本刀があれば包丁は要らないわけではないのと同様、
Perlがあってもsedは必要。
sed 's/nae/moe/g' akiba.txt
perl -pe 's/nae/moe/g' < akiba.txt
----------------------------------------------
awk 'BEGIN{FS=","}$2 == $3{print $1}' hoge.csv
perl -F',' -alne 'print $F[1] if $F[2] ne $F[3]' hoge.csv
でも、ある程度以上の規模のスクリプトを組んだり、
C言語に近いようなことをしたいならPerlを選びましょう。
229:デフォルトの名無しさん
09/03/08 15:26:42
>>226
Perl不要論ですか。これは新しい。
230:デフォルトの名無しさん
09/03/08 15:37:05
>>228
絶対必要ってわけじゃないだろ。Perlが入ってないマシンいじる
機会があるならともかく。覚えといて損はない程度だと思うが。
日本刀でも料理は出来る。
>>226
インストーラがPerlを要求するご時勢にこんな事言う人がいるとは。
昔はそうやって批判する人もいたけどね。
231:デフォルトの名無しさん
09/03/08 15:47:58
>>230
日本刀で料理w
そこまでムキになって否定しなくてもいいんでない？
世の中シェルスクリプトはできるけどPerlはできない人なんてゴロゴロいるし、
Perlが出来ても使い捨てスクリプトはシェルスクリプトでやる流儀の人もいる。
どうあがいても完全にシェルスクリプトを駆逐するのは無理だよ。
自動車の優位性をいくら説いても原チャリや自転車はなくならないのと同じでさ。
232:デフォルトの名無しさん
09/03/08 15:52:30
>>231
不要とは言ってない。Perlでブートするわけにはいかんだろｗ
ただマの知識として必要かというとPerlで事足りる人もいるだろう。
233:デフォルトの名無しさん
09/03/08 16:07:30
>>231
お前こそムキになってPerlは必要ないって言ってるじゃん
234:デフォルトの名無しさん
09/03/08 16:07:39
>>232
エンドユーザの立場から一言。
プログラマの方のお考えはごもっともです。
しかし、「高層建築にカンナやカナヅチなんて要らない」的発想が
今日のエンドユーザー・コンピューティングの惨状を招いたのではありませんか？
たかだかちょっとした自動化、文書検索、集計程度も自分で書けない人だらけにしてしまったのは
「素人は言語なんて使わなくていい」という発想のせいだと思えるのですが。
235:デフォルトの名無しさん
09/03/08 16:21:46
自分の目的を達成できれば言語なんて何使ったっていいんだよ。
特にスクリプト系言語を使うってことは、大体が小物でしょう？
自分がサッと書けること。これが重要。
236:デフォルトの名無しさん
09/03/08 16:26:44
>>234
時代のせいだと思います。
例えば自分はWebプログラミング畑だけど、全てのWebアプリケーションを
全部Cで書くことは納期的にほとんど不可能です。awkでは完成すらしない
ものも出てきます。
自分も昔はquick sortくらいは空で書けたけど、Webに足を
突っ込んだ今ではそれすら忘れてしまいました。
237:デフォルトの名無しさん
09/03/08 16:47:37
>>236
quicksortなんてlibcに任せときゃいいんですよ。気に病むことでもない。
238:デフォルトの名無しさん
09/03/08 16:59:13
>>236
quick sortもできないの？
ﾌﾟﾌﾟ
239:デフォルトの名無しさん
09/03/08 17:03:17
>>237
だね。
>>238みたいになんでも自分で作るとたまに間違うことがあるし、
馬鹿馬鹿しいプライドで心がねじ曲がってしまう。
240:デフォルトの名無しさん
09/03/08 17:17:39
エンドユーザの立場から一言。
プログラマの方のお考えはごもっともです。
しかし、sortコマンド打つのが簡易で合理的な発想だと思えるのですが。
たかだかちょっとしたソートも自分で書けない人だらけにしてしまったのは
「素人はソートなんてやらなくていい」という発想のせいだと思えるのですが。
241:デフォルトの名無しさん
09/03/08 17:22:21
単純なテキストファイルで単純なソートなら sort(1) でもいいんだろうけど
242:デフォルトの名無しさん
09/03/08 17:24:54
FYI
■libcでqsort()を再帰を使って実装してる香具師は怠慢だろ…常識的に考えて
URLﾘﾝｸ(d.hatena.ne.jp)
243: ◆TWARamEjuA
09/03/08 18:49:15 BE:1742944-BRZ(10000)
そーっとしといてやれよ。
244:デフォルトの名無しさん
09/03/08 20:19:13
>>230
シェル言語ってのは地味に需要がある。
MSがUNIX/Linuxへの対抗心むき出しでWindows PowerShellなんぞ作ってるくらいだから。
UNIX/Linuxを普段使ってる人ってのはシェルを対話的に利用するのに慣れている。
だから、さて何か組もうかって時もシェル言語が第一選択になる。
それでダメな時に別の言語を選ぶ。
UNIXの世界ではシェルでできることはシェルで、というのが昔から暗黙の了解なので
いきなりPerlやPythonでやろうとするのは、コンピュータの世界にWindowsから入った人くらいだろう。
それは例えて言うなら、自家用車を持ってるのにリムジンをレンタルしてドライブするようなもんだ。
245:デフォルトの名無しさん
09/03/08 22:44:41
ワンライナーはsed,awk,sortの方が楽なことが
多いな。例えばいくらオプションでsplitを暗黙
にさせても[]書かされる時点で、$1,$2でいい
awkにはかなわない。
もちろんガッツり書くならスクリプト言語。
246:デフォルトの名無しさん
09/03/09 17:17:27
>>244
1行目は同意だが、あとはいつの時代の話だよと思うな。
そりゃ配布物配ろうとか思ったらまずshを選択するだろうが、
例えばWebアプリケーション作る時にshを第一選択肢に上げるか？
hello world以外は特にsh使う場面って思いつかないんだが。
247:デフォルトの名無しさん
09/03/09 17:48:50
>>246
普通にファイル処理やテキスト処理には使うし、
処理を自動化するのにも使うし、
定期的にどっかのサイトにアクセスして、特定の情報だけを記録するとか、
その程度の用途には当たり前に使うと思うが。
本格的なプログラミングか、ワープロとか表計算みたいに出来合いのアプリで済ませるか、
二者択一だったらパソコンライフなんて送れねーよ。
それとも、プログラミングってのはアプリとwebの開発のためだけにあんのか？
248:デフォルトの名無しさん
09/03/09 17:54:32
小規模ならまずシェルで出来ないか考えるよな
249:デフォルトの名無しさん
09/03/09 17:54:45
>>247
例外は認めないのかよｗ
普遍的な事のように書くから変な誤解受けるんだろ。
んで、それらの用途にシェル使わない人もいると思うが何かデメリットでもあるのか？
「UNIXの世界ではふつー」とかじゃ理由にならんだろ。
例えば毎秒起動とかだったらさすがに少々面倒でもshを第一選択とするのが吉だと思うが。
250:デフォルトの名無しさん
09/03/09 17:58:02
>>249
>んで、それらの用途にシェル使わない人もいると思うが何かデメリットでもあるのか？
同じことができるならそれでいい。
ただし、より面倒臭くなることはあるだろう。
何も難しくないワンライナーでできることに他の物使うとか、そういうのは単なるアホだろ。
251:デフォルトの名無しさん
09/03/09 18:06:37
トリッキーなことしなくても普通にシェルでできるなら、それが一番簡単なんじゃね？
コマンド並べれば動くから
難しいナンチャラ理論やらウンタラ指向やらも考えなくて済む
プログラマでないエンドユーザや管理者にも使えるのは大きなメリットだと思うな
252:デフォルトの名無しさん
09/03/09 18:07:23
>>250
要するに余計面倒な時だけsh使うでもいいわけね。
>>244はとてもそういう論調には見えないけど。
そういう俺はよくshスクリプト書くがな。
253:デフォルトの名無しさん
09/03/09 18:10:49
>>252
w3m -dump URLﾘﾝｸ(www.media-k.co.jp) | grep '´_'
254:デフォルトの名無しさん
09/03/09 18:11:49
>>250
> 何も難しくないワンライナーでできることに他の物使うとか、そういうのは単なるアホだろ。
Perlプログラミングに没頭してる合間とかだったら、AWKの方が少々短くても
Perlのワンライナーを選択することはあるな。
短く書けるっつったってせいぜい数バイトだろ>>228。頭切り替える方が面倒だわ。
255:デフォルトの名無しさん
09/03/09 18:13:28
>>254
Perlに没頭してるあなたにとってはPerlでやるほうが簡単なんでしょうね
別にそれはそれでいいのでは？
だからといって、それはあなた個人の特殊事情で簡単に感じるだけなのだから、
シェルでやるほうが手間が少ない人にまで強要すべきことではないでしょう
256:デフォルトの名無しさん
09/03/09 18:15:10
>>255
いつ強要したんだよｗｗ俺はこうだって言っただけじゃん。
逆に>>244なんかshで出来ることにPerl使う奴は外道みたいな書き方じゃん。
257:デフォルトの名無しさん
09/03/09 18:17:24
この人論点が分かってないからトンチンカンな事を言うのかね。
「何事もshが第一選択にするのが普通、じゃなきゃ外道」
みたいな主張がおかしいと言ってるだけなんだが。
258:デフォルトの名無しさん
09/03/09 18:22:07
>>257
話がかみ合わない理由って案外簡単なんじゃない？
普通にUNIX系OS使ってる人にとってshって標準的な道具だから、
シェルで作業するってのは鉛筆で文字を書くのと同じくらい簡単で当たり前なんだよ。
だから、どうしても他の物を試す前にshで、っていう発想になるだけでしょ。
259:デフォルトの名無しさん
09/03/09 19:01:03
いったい、シェルの話をしているのかシェルスクリプトの話をしているのか
はっきりさせてくれ。
260:デフォルトの名無しさん
09/03/09 19:09:12
つーかPerlの話しようぜ
261:デフォルトの名無しさん
09/03/09 19:20:03
>>259-260の流れわろた
262:デフォルトの名無しさん
09/03/09 19:41:35
この現代に、ＷＥＢアプリ以外に何があるの？
世界じゅうどこを見て回っても、ＷＥＢアプリしか無いんだから
awk も sh もいらん。perl しか選択の道は無いだろ。
263:デフォルトの名無しさん
09/03/09 19:43:50
最近の家庭電化製品はマイコン内臓でずいぶん賢くなった。
しゃべる電子レンジのファームウエアを awk や sh で書けると思ってんの？
264:デフォルトの名無しさん
09/03/09 19:56:31
宗教の勧誘みたいw
265:デフォルトの名無しさん
09/03/09 20:00:33
shのほうが慣れてるからsh使うという人が、昔は多かった。
イマドキのPerlerには、Perlのワンライナーのほうが慣れてる人が多いんだろうね。
266:デフォルトの名無しさん
09/03/09 20:06:24
>>265
perlの人は
ls
と打たずに
opendir(DIR,'.');
@file = sort readdir(DIR);
foreach(@file){
$time = localtime ((stat($_))[9]);
print "$time"."\t"."$_\n";
}
closedir(DIR);
とやるわけですね？
簡単なことをいちいち
perl ふがほげ
perl うんたらかんたら
ってやるのは不自然なんですけど
267:デフォルトの名無しさん
09/03/09 20:10:37
lsで済むことならlsじゃねえの普通
Windowsユーザならlsなんぞ打たずにファイラとかエクスプローラだろうしな
でも、スクリプトの話じゃなかったのか
268:デフォルトの名無しさん
09/03/09 20:13:40
ファイルの行数調べるのも「Perlでどうやろうか」とか考えちゃうのね
cat hoge | wc -l
とせずに
269:デフォルトの名無しさん
09/03/09 20:14:54
そこは
wc -l <hoge
catとか使わないな
270:デフォルトの名無しさん
09/03/09 20:15:05
>>267
シェルとシェルスクリプトに何の違いがあんの？
コマンドが単発か複数かの違いだけじゃん？
271:デフォルトの名無しさん
09/03/09 20:15:32
ファイルに記述するか
その場でうちこんで終わりかの違いじゃね
272:デフォルトの名無しさん
09/03/09 20:17:15
シェル言語の有用性認めないなら
シェル言語使わなけりゃいいじゃん
そこまで言うならPerlだけで暮らせ
273:デフォルトの名無しさん
09/03/09 20:18:57
bashのコマンド使わないでperlだけで暮らしたらさぞ便利だろうねw
274:デフォルトの名無しさん
09/03/09 20:23:47
Windowsユーザの9割はbashなんて使ってないけどね
275:デフォルトの名無しさん
09/03/09 20:26:16
>>274
この話ではWinユーザは無関係と思われ
UNIXの操作ではシェルが母国語みたいなもんなのに
簡単な用事でも外国語使いたがる変人だけが対象
276:デフォルトの名無しさん
09/03/09 20:30:51
それって、いもしないキャラを作り上げてない？
277:デフォルトの名無しさん
09/03/09 20:40:09
awk '/UNIX/ || /Linux/' hoge
perl -ne 'print if /UNIX/ || /Linux/' hoge
シェルを普通に使いこなしてる人なら最初の方が明らかに簡単だろ？
打鍵数だけじゃなく、構文的にも。
「何でもPerl」ってやりかたが変だってのは、そういうこと。
shは古い、awkやgrepは低機能だと文句言いながら、より難しくやってる人たちを変だと言ってるだけさ。
で、シェルとシェルスクリプトをやたらに区別したがってる奴がいるが、本質は同じだろ。
シェル使って作業して、コマンドを複数使って仕事しようとすると、シェルスクリプトと言われるだけで。
278:デフォルトの名無しさん
09/03/09 21:04:33
>>277
その例なら
grep '(UNIX|LINUX)' hoge
かなあ
awkなんて使わないよ
279: ◆TWARamEjuA
09/03/09 21:09:44 BE:1960463-BRZ(10000)
my @textfiles = grep /txt$/, qx|ls -l|;
でもえぇやん。。。
280:デフォルトの名無しさん
09/03/09 21:13:16
>>278
環境によって動かないとおもいまつ
GNU grep 2.5.3
では少なくとも×
grep -e UNIX -e Linux hoge
これなら動きます
ただし、awk使うのと難しさに大差ありません
281:デフォルトの名無しさん
09/03/09 21:15:29
例を挙げれば挙げるほど
Perlより簡単な方法が出てくる件
282:デフォルトの名無しさん
09/03/09 21:21:06
>>280
ありゃ
egrepならいいのかな？
283:デフォルトの名無しさん
09/03/09 21:21:44
>>282
そうでつね
284:デフォルトの名無しさん
09/03/09 21:29:38
ここまでの流れを見た率直な感想
Bシェルとかgrepとかawkとかsedなんて前時代の遺物だと思ってたけど・・・
今でも十分に使えんじゃん
285:デフォルトの名無しさん
09/03/09 21:45:28
結局どうやるのがもっとも効率的かを的確に判断できるように
あらゆるスキルを磨いとけってこった。
286:デフォルトの名無しさん
09/03/09 22:15:16
専用のコマンドの方が使い勝手がいいのは当然だよね
それでも sed や awk を使うのでは１行で済まない場合は
（シェルスクリプト組むような場合は）、Perl の方がシンプルになってくる
287:デフォルトの名無しさん
09/03/09 22:19:03
ワンライナーの話をしてるのに
なんでshのコマンドラインとワンライナーを比べるんだか・・・。
ネジ緩んでるの？後者は一応スクリプトだぞ。
コマンドはスクリプトで書くのが大変or不可能なことをするために
存在するんだからwcとか例に持ってくるのは愚の骨頂。
288:デフォルトの名無しさん
09/03/09 23:24:23
>>286
簡単なことだけならシェルスクリプトの方がシンプルだと思うが
>>287
それって自分の首絞めてないか？
コマンド単体で強力ならそれを利用したスクリプトも強力なわけで
289:デフォルトの名無しさん
09/03/09 23:42:01
>>287
ワンライナーってコマンドラインの延長じゃねーの？
質的な違いなんてねーよ
290:デフォルトの名無しさん
09/03/09 23:48:37
質問です！
Perlとsedとawkとbashはどれがいちばんつおいのですか？
291:デフォルトの名無しさん
09/03/09 23:57:59
perlで話題が無いからって、そこまで引っ張ることないだろ(w
292:デフォルトの名無しさん
09/03/10 00:00:57
じゃあ無理やり話題作りを。
問：以下のシェルスクリプトをPerlに直しなさい。
#!/bin/sh
o=$(echo "$@" | sed 's/ /+/g' | sed 's/ /+/g')
w3m "URLﾘﾝｸ(www.google.co.jp)"$o"&meta=lr%3D&aq=f&oq="
293:292
09/03/10 00:08:22
ちなみに、
sed 's/ /+/g' | sed 's/ /+/g'
の部分は
sed 's/[ ]/+g'
でも同じですが、
全角スペースと半角スペースを列記すると見た目にわかりにくくなるので、
問題文ではあえて別々に処理しとります。
294:デフォルトの名無しさん
09/03/10 00:15:36
sedやw3mがシェルスクリプトの一部だというなら
perlも仲間に入れてあげなよ
295:デフォルトの名無しさん
09/03/10 00:18:46
perlだけは絶対入れない。絶対ニダ
296:デフォルトの名無しさん
09/03/10 00:21:18
sedとかawkでやると楽な事とperlでやるのが楽な事の境界線を
判断するのは難しいよな
297:デフォルトの名無しさん
09/03/10 01:53:00
まーあれだ、シェルがどーこーとかほざいてる奴らが言ってるのはどうせbashだろ。
糞linuxごときの標準シェルなんぞどーでもえーわ
298:デフォルトの名無しさん
09/03/10 06:31:06
どーでもえーことに熱くなれるっていいネ!!
299:デフォルトの名無しさん
09/03/10 11:47:12
Linux板のシェルスクリプトスレはここほど釣れなかった
からといってここに八つ当たりしなくてもねえ。
300:デフォルトの名無しさん
09/03/10 22:07:54
RSSから指定期間の祝日を取得するスクリプトを書いてる。
ある程度の日付の範囲をもって複数の祝日を取得するときは問題なく動作するんだけど、ある特定の祝日を一つに絞って実行すると上手く動作しない。
printをあちこちかませて調べてるんだけどどうも$keyが上手く取れてない様子。通常はURLが入るんだけどNGの場合はXMLのタグ名がなぜか入ってきてNGになってしまう。
上手く動かすには何が足らないんだろ？
use LWP::UserAgent;
use XML::Simple;
&Holiday ("2009-02-01", "2009-04-01"); # OK
&Holiday ("2009-03-20", "2009-03-21"); # NG
sub Holiday {
my $feed_base = 'URLﾘﾝｸ(www.google.com)';
my $sdate = $_[0]; # この日を含む開始日
my $edate = $_[1]; # この日を含まない終了日
my $query = "start-min=${sdate}&start-max=${edate}";
my $feed_url = $feed_base . '?' . $query;
my $ua = LWP::UserAgent->new;
my $res = $ua->get( $feed_url );
if( $res->is_success ){
my $xml_parser = XML::Simple->new();
$XML::Simple::PREFERRED_PARSER = 'XML::Parser';
my $holidays_data = $xml_parser->XMLin( $res->content );
foreach my $key ( keys %{ $holidays_data->{ entry } } ){
#print "$key\n";
my $holiday_day = $holidays_data->{ 'entry' }{ "$key" }{ 'gd:when' }{ startTime };
print $holiday_day , "\n";
}
}else{
die $res->status_line;
}
}
301:デフォルトの名無しさん
09/03/10 23:08:10
質問です。
以下のコードを実行するとhoge_fooという出力を期待していたのですがfooとしか表示されません。
おそらく_が何か演算子としての働きをしているんだと思いますが、
一体これはどういう意味を持つ演算子なんでしょうか？教えてください。
Perlのバージョン：This is perl, v5.8.8 built for MSWin32-x86-multi-thread
$hoge="hoge";
$foo="foo";
print "$hoge_$foo\n"; # 出力：foo
print "$hoge\_$foo\n"; # 出力：hoge_foo
302:301
09/03/10 23:10:45
$hoge="hoge";
$foo="foo";
$hoge_="まさか・・";
print "$hoge_$foo\n";
print "$hoge\_$foo\n";
どうみても誤解釈です。ほんとうにありがとうございました。
303:デフォルトの名無しさん
09/03/10 23:11:02
>>301
3行目で$home_ を展開してる。
サンプルコードの最初に
$hoge_ = "HOGE";
て入れてみると、3行目の出力が「HOGEfoo」になる。
304:デフォルトの名無しさん
09/03/10 23:11:34
あ、>>302で解決してますね
305:301
09/03/10 23:17:29
>>303,304
レスどうもありがとうございました。
306:デフォルトの名無しさん
09/03/11 10:31:12
くだすれスンマセン
($self->{year},$self->{month},$self->{day}) = ( gmtime time + $time_difference * 3600 )[5,4,3]
この [5,4,3]っていうのはどういうことなのですか？
こういう書き方の呼称がわからないのでググれなくて
307:デフォルトの名無しさん
09/03/11 10:50:28
slice
308:デフォルトの名無しさん
09/03/11 13:46:55
list
309:デフォルトの名無しさん
09/03/11 18:19:50
>>306
ググる前にマニュアルを読めばいいと思うよ。
URLﾘﾝｸ(perldoc.jp)
310:デフォルトの名無しさん
09/03/11 18:31:28
>>309
perldata読めばいいってはじめからわかってたら困らんだろ。
311:デフォルトの名無しさん
09/03/14 10:04:59
少しお聞きしたいのです。
以下のようなソースがありまして、
$| = 1;
print "Start\n";
$i = 0;
while($a = <>){
print "Loop: $a $i\n";
$i++;
}
print "End\n";
コマンドラインから perl test.pl などとして起動すると、
Ctrl+Z(ENTER)でEOFを渡して（よくわかってない？）中断して終了できますよね。
しかし、EOF(0x1a)を、
ファイルで渡したり(perl test.pl < test.txt)、Delphi等のプログラムから渡したりすると
上記プログラムでは終了してくれなす。
これを終了してくれるようにするにはどうしたらよいでしょうか？
312:デフォルトの名無しさん
09/03/14 10:06:38
>>311
捕捉
> EOF(0x1a)を、ファイルで渡したり
これは、バイナリエディタで 74 65 73 0D 0A 74 65 73 74 0D 0A 1A 0D 0A のように記述しました。
313:デフォルトの名無しさん
09/03/14 11:13:25
シグナル打ち込め
314:デフォルトの名無しさん
09/03/14 11:24:01
>>311
1A は関係ないと思う。
1A は有っても無くても終了するはずだよ。
でないと UNIX などは大変なことになる。
1A は Windows だけの習慣。UNIX のテキストファイルには普通 1A は無いからね。
原因は何か他にあるんじゃないの？
315:311
09/03/14 12:15:10
ごめん、環境かいてなかった。
OS: Windows Vista SP1 32bit
perlは体分前に入れたものなので古い
This is perl, v5.8.3 built for MSWin32-x86-multi-thread
(with 8 registered patches, see perl -V for more detail)
>>314
ファイルをつっこむと、1Aで終了せずに、ファイル全部読み込んだら終了します
プログラムで（というか以下のライブラリ）で読むと、1A送っても無限ループが続く幹事
URLﾘﾝｸ(maxxdelphisite.free.fr)
1AってそもそもEOFじゃないんのかな？
316:デフォルトの名無しさん
09/03/14 12:27:16
>>315
先ず先に<>はSTDINとARGV両方を示す事を理解しろ。
プログラム引数に何か渡されたら、< であろうが、ARGVとして扱われ、
ARGVがあれば、暗黙のうちに<>は<ARGV>として挙動する。
従って
====
while(<>){ print "ARGV: $_" }
while( ($_=<>) !~/^$/ ){ print "STDIN: $_"}
====
をhoge.plとして保存して以下の様に実行した場合、
perl hoge.pl < hoge.pl
は、ARGVの中身を全てプリントした後にSTDINの処理をする
（STDIN処理は、何も入力せずにreturnで終了）。
外部ファイルにシグナルを入れて流し込むのが仮に可能だと
しても、それをどのタイミングで使うかは書き手に任される訳だから、
素直に終了フラグを立てるのが普通では無いの？
317:デフォルトの名無しさん
09/03/14 13:49:03
なんか変なのが沸いた
>>プログラム引数に何か渡されたら、< であろうが、ARGVとして扱われ、
へー
318:デフォルトの名無しさん
09/03/14 13:55:55
ファイルハンドルがって意味じゃねえの？
それでも言葉不足だけどw
perl hoge.pl < hoge.pl
は、
while(<ARGV>){ print ; }
でも
while(<STDIN>){ print ; }
動くよ。
319:デフォルトの名無しさん
09/03/14 13:57:02
最終行「でも動くよ。」
320:デフォルトの名無しさん
09/03/14 14:08:58
知ったかぶり者を論うのやめろ。荒れるから。
321:へんなの
09/03/14 14:09:01
あーすまん。
言葉も変だし、5.8までと5.10で挙動が違うわ、>>316。
>>316の例とかは全面撤回（5.10では動く）
322:デフォルトの名無しさん
09/03/14 14:28:14
CPANやperldoc.jpでのPODトランスレータは何を使っていますか？
Pod::HTML, Pod::HtmlEasy, Pod::Xhtml, Pod::Tree::HTML,
Pod::Simple::HTML, Pod::Simple::XHTML...と、色々試していますが、
L<Foo>やら=item * <Bar::Baz>やらマルチバイト文字やら、
一部に対応しているものがありますが、全部に対応したものはないように
感じました。
323:デフォルトの名無しさん
09/03/14 17:02:33
>>315
＞ファイルをつっこむと、1Aで終了せずに、ファイル全部読み込んだら終了します
＞プログラムで（というか以下のライブラリ）で読むと、1A送っても無限ループが続く幹事
結局どうなの？終了するの？無限ループするの？どっちなの？
結局、何がしたいの？どういう動作を期待してるの？
324:デフォルトの名無しさん
09/03/14 19:47:30
>>311 が使ってるOSでは、0x1a を送っても 0x1a にすぎず EOF にはならない。
どうしてもそれを望むなら OS を CP/M に換えるといい
325:デフォルトの名無しさん
09/03/14 21:48:07
I love you
326:デフォルトの名無しさん
09/03/16 20:40:31
二重のforeach修飾子は使えないのでしょうか？
perl -E '
@tmp=([1,2,3],[4,5,6],[7,8,9]);
for (@tmp){
for (@{$_}){say}
}'
出力
1
2
3
(以下略）
という構文をforeach修飾子を使って、以下のように書いたのですが、
perl -E '
@tmp=([1,2,3],[4,5,6],[7,8,9]);
say for @{$_} for @tmp;'
コンパイルエラーになってしまいます。
このような二重のforeach修飾子は使えないのですか？
それともコードが間違っているのでしょうか？
perlのバージョンは
v5.10.0 built for x86_64-linux-thread-multi
です。
327:デフォルトの名無しさん
09/03/16 20:59:27
修飾子はひとつしかつけられません。(perlsyn参照)
Any simple statement may optionally be followed by a SINGLE modifier,
just before the terminating semicolon (or block ending).
328:デフォルトの名無しさん
09/03/16 21:15:11
rand()で、0が出る確率というのはあるのでしょうか？
もしくはrand()で出る一番小さな数字というのがあれば教えて頂けないでしょうか。
329:326
09/03/16 21:19:15
>>327
ありがとうございます。
参考になりました。
330:デフォルトの名無しさん
09/03/16 21:51:39
>328
perldoc -f rand
331:デフォルトの名無しさん
09/03/16 23:58:47
$data = "19:09:34 hoge 294";
if($data =~ /\d\d:\d\d:\d\d \d*/){
print "マッチ\n";
}else{
print "マッチせず\n";
}
「数字数字:数字数字:数字数字 いくつかの数字」という文にだけヒットさせたいんですが、
何故か余計な文字の入っている上の文でもヒットしてしまいます。
どうしてヒットしてしまうんでしょうか？
環境：This is perl, v5.8.8 built for MSWin32-x86-multi-thread
332:331
09/03/17 00:01:27
*だと\dが0の場合も含まれるんでした。
*を+にしたらうまくいきました。
333:デフォルトの名無しさん
09/03/17 00:42:36
関数のreturn値って成功の場合1で、失敗の場合0が普通なのでしょうか？
標準関数はこのパターンが多いような気がします。
シェルスクリプトの場合だとたいてい逆ですよね？
334:デフォルトの名無しさん
09/03/17 07:18:18
成功の場合に真を、失敗の場合に偽を返す
って考えれば Perlの関数の多くも コマンドの終了コードも同じ
335:デフォルトの名無しさん
09/03/17 08:34:52
↑
アフォ？
336:デフォルトの名無しさん
09/03/17 16:16:53
>>333
そだよ
だからsystem関数の使い方には注意
Perl6では、system関数の戻り値もPerlの流儀になる
337:デフォルトの名無しさん
09/03/17 20:36:43
引数がAから始まって、後が全部数字かどうかチェックするのって
if($ARGV[0] =~ /^A+[0-9]$/)
でいいのかな
338: ◆TWARamEjuA
09/03/17 20:38:57 BE:3920966-BRZ(10001)
>>337
おしいかも。
/^A[0-9]+$/
でもその前にchomp入れた方がよいかも♪
339:デフォルトの名無しさん
09/03/17 20:47:23
おおお、なんと優しい
ありがとーｗ
340:デフォルトの名無しさん
09/03/17 23:20:12 BE:309540375-PLT(54324)
/\AA[0-9]+\z/
341:デフォルトの名無しさん
09/03/18 04:15:45
xms
342:デフォルトの名無しさん
09/03/18 09:46:26
\d+はダメなの？
343:311
09/03/18 10:41:45
>>316
時間が空いてすいません。
^Z(1A)はシグナルなのでそもそもファイルからは渡せないもんなんでしょうか？（単にデータとして受け取られる）
問題は、通常のプログラムから標準入力を渡した場合なのですが、これもファイルから渡したのと同様になる
ものなのでしょうか？
つまり、何かのデータをフラグと見立てて、それを検出したら終了、というような作業が必要なものか、と。
344:311
09/03/18 10:44:13
>>323
期待する動作は、プログラムで1Aを送ると終了して欲しい、ということです。
ターミナルやコマンドプロンプトなどで、^Zを送ったときと同じような動作を期待しています。
345:デフォルトの名無しさん
09/03/18 10:44:39
>>342
\d や \w はロケールや UTF-8 フラグによってマッチする文字が変わる。例えば全角数字。
$ は改行の直前にもマッチするので、"A10\n" =~ /^A[0-9]+$/ が真となってハマる初心者多し。
^ は /m が指定されていない限り文字列先端にしかマッチしないので、\A だとやや偏執的
とも感じる。用心深いに越した事はないけれど、/\AA よりは /^A の方が見た目がスッキリ
して読みやすい。
URLﾘﾝｸ(perldoc.jp)
URLﾘﾝｸ(perldoc.jp)
346:デフォルトの名無しさん
09/03/18 11:35:38
>>344
1Aが入ってきたら終わるように書けばいいだけ。
347:デフォルトの名無しさん
09/03/18 16:01:22
Perl業界におけるPerl 6の立ち位置がよく分からないんですが、
雰囲気的にはどんな感じなんでしょうか？
348:デフォルトの名無しさん
09/03/18 16:24:04
>>347
Web業界に限って言えば様子見ムード。
349:デフォルトの名無しさん
09/03/18 16:28:27
Parrot1.0が出ましたが、これ使うと何が出来るようになるんですか？
他言語との連携が楽になるだけ？
350:デフォルトの名無しさん
09/03/18 16:40:10
>>344
CP/Mからの呪縛。
DOS(Windows)とUNIXそれぞれの、改行コード、終端コード、
テキストモード、バイナリモードについて、ググるなりして理解するのが先。
351:デフォルトの名無しさん
09/03/18 18:44:37
>>345
㌧
352:デフォルトの名無しさん
09/03/18 20:17:40
>>344
だから 0x1a が EOF と思ってる時点で間違ってる
まずここを理解しろよ
CTRL-Z 押下は EOF を送るための特殊な操作であって、
それが歴史的な理由で CTRL-Z (0x1a)になってるだけであって
0x1a を送れば EOF になるわけじゃない。
353:デフォルトの名無しさん
09/03/19 01:24:01
>>344
if (ナントカ eq "\x1a") { exit }
こういう発想は思いつかんの？
354:311
09/03/19 07:08:15
>>346 >>352-353
理解しました。ありがとう。
355:デフォルトの名無しさん
09/03/20 02:20:00
@a = ('1','2','3','4','5','6')
@b = ('2','3')
という配列があった時に、@aから@bを削除して
@c = ('1','4','5','6')
を作りたいのです。ループ回すしか無いのでしょうか?
大崎氏(URLﾘﾝｸ(www.din.or.jp))の、
# 配列 @array から重複した要素を取り除く
{
my %count;
@array = grep(!$count{$_}++, @array);
}
みたいな華麗な手法があるなら知りたいです。
356:デフォルトの名無しさん
09/03/20 03:24:57
@count{@b} = @b;
@array = grep(!defined($count{$_}), @a);
357:デフォルトの名無しさん
09/03/20 05:09:05
@c = grep{!((join ',', @b) =~ /(?:^|[^0-9])$_(?:[^0-9]|$)/)} @a;
すごく…力わざです…
358:デフォルトの名無しさん
09/03/20 06:47:02
>>355
みたいなじゃなくてそれ使えよ
359:デフォルトの名無しさん
09/03/20 16:49:14
>>355
use Array::Utils;
@a = ('1','2','3','4','5','6');
@b = ('2','3');
@c = Array::Utils::array_diff(@a, @b); # (1,4,5,6)
360:デフォルトの名無しさん
09/03/20 16:52:41
>>359
最近ではそういうのを華麗というのか？
361:デフォルトの名無しさん
09/03/20 17:25:05
モダン(笑)
362:デフォルトの名無しさん
09/03/21 21:33:12
教えてください。恥ずかしいんですが...
sample.html
--------------------
<html>
2009-03-20
</html>
--------------------
yyyy-mm-dd.pl
--------------------
#!/usr/bin/perl
use Time::Local;
($s, $mi, $h, $d, $mo, $y, $w) = localtime(time);
$lastupdate = sprintf("%04d-%02d-%02d", $y + 1900, $mo +1, $d);
$yesterday = sprintf("%04d-%02d-%02d", $y + 1900, $mo +1, $d-1);
s/$yesterday/$lastupdate/g sample.html;
--------------------
363:362
09/03/21 21:34:06
(続き)
sample.html内の2009-03-20を2009-03-21に置換したいのですが、
これじゃだめなんですよね? どうしたらいいでしょうか。
ちなみに、ワンライナーっていうんですよね、それで
$ perl -i -p -e 's/2009-03-20/2009-03-21/g;' sample.html
みたいにすると置換できましたが、s/foo/bar/のfoo, barの部分に
変数を使いたいんです。
目的は、社内LANで公開しているweb(html)内の最終更新日時の表示を、
ちょっとした理由から、毎朝午前5時とかに、その日の日付に変えること、です。
よろしくお願いします。
364:デフォルトの名無しさん
09/03/21 21:45:51
>>363
javascriptじゃだめなの？
365: ◆TWARamEjuA
09/03/21 21:51:44 BE:3484984-BRZ(10001)
04月01日だと、$yesterdayに04月00日が生成される伊予柑♪
366:362
09/03/21 22:00:24
しくしく。。。いじわるですね。。。というか遊ばれていますね。。。
javascriptでもいけるんでしょうか。
それから、おっしゃるとおり04月00日になりそうですね。
perlで行くとしたら、そこは勉強して、何とか回避策を考えようと思います。
WSH, perl, あと何だろう、いくつか候補を考えたのですが、perlは
まったくといっていい初心者です。sedも。正規表現は理解はしている
つもりですが使ったことがあまりないです。
どんな手段でもよいのですが、何となくperlがよさそうだと思って、
この板に来てしまいました。。。
あらためて、どんな手段(言語、手段、ツール)がいいかを含めて
教えてください。<(_ _)>
367:デフォルトの名無しさん
09/03/21 22:11:34
>>362
1) SSIで最終更新日時を書くのが楽
2) Perlでやるなら、File::Slurpで読んでDateTimeで計算するのが楽
かね。
そもそも、
A) sample.htmlにベタ書きしてある最終更新日時の翌日を書けばいいのか、
B) sample.htmlの最終更新日時をただ表示すればよいのか（上記1.でよい）、
そのあたりの要件がはっきりしません。
更新日時についても、営業日でなくて暦日で良いのか、とか。
ちょっとまってね、これから書くから。
368:デフォルトの名無しさん
09/03/21 22:15:53
明らかにSSIが楽。
369:デフォルトの名無しさん
09/03/21 22:19:42
# YYYY-MM-DDをその翌日に置き換える場合
# ただし13月32日とかも引っ掛かって甘いので注意
# しかも、最終更新日以外でも、くだんの正規表現に引っ掛かった値が変換されるので注意
use strict;
use warnings;
use File::Slurp;
use DateTime;
my $file_name = q{sample.html}; # $ARGV[0]とかの引数で渡すとか好きにして
my $file = read_file($file_name, array_ref => 1);
LINE:
foreach my $line (@$file) {
$line =~ s{
(\d{4}) - (\d{2}) - (\d{2})
}{
DateTime->new(year => $1, month => $2, day => $3)
->add(days => 1)
->ymd();
}xmse;
}
write_file($file_name, $file);
370:362
09/03/21 22:19:54
すみません...
そもそも、から行きますと、
A) sample.htmlにベタ書きしてある最終更新日時の翌日を書けばいい
です。
営業日ではなく暦日でOKです。
土日祝日もインフラが停止しなければ365日毎朝更新したいです。
というのは、会社のデータベースからあるまとまった形のデータを
Excel形式で落としてきて、それにパスワードをかけて、所定のフォルダに
アップロードし、それを地方拠点にイントラウェブで提供します。
最終更新日を更新したいというのは、そのアップロードの案内ページなんです。
データを落としてきて、パスワードをかけて、所定のフォルダにアップロード
するところまでは、マクロとMS-DOSのバッチファイルとタスクスケジューラと、
恥ずかしいうにょうにょなやり方でどうにか実現しました。
が、そうしたところ、案内のhtmlファイルも自動で日付を変えられるだろうと、
偉い人から言われまして...
371:369
09/03/21 22:22:40
Template-Toolkit(Template)とかHTML::Templateを使う手もあるね。
ただ、>>370の書き方を見ると、
土日でもアップロードされたデータが更新されているなら、
touch sample.html
してアップロード案内ページだけ最終更新日時を変えれば、
A)はB)と同じになるよね。
そうすればSSIでもやれるんじゃないかな？
372:362
09/03/21 22:22:46
>>369さんありがとうございます。
さっそく明日試してみます。
SSIについては鯖管さんに相談してみます。
そういうとこ、小回りのきかない、相談窓口も親身になってくれない
会社です。。。
373:369
09/03/21 22:26:43
うい、367=369=371れす。
鯖管は別なのか……。
まあ、SSIを検討してみてよ。日曜なのに大変だね。
もしPerlでどうしてもやりたいなら、>>369を使う場合、
DateTimeとかFile::Slurpは標準では入っていないから、
CPANから導入出来るかも聞いておいて。
374:デフォルトの名無しさん
09/03/21 22:29:14
あー、LINE:も要らないし（逐行処理の名残）、そもそもよく考えたら
my $file = read_file($file_name, scalar_ref => 1);
して
$file =~ s{略}{略}xmseg;
すりゃよかったか。
しつこくてごめん。
375:デフォルトの名無しさん
09/03/21 22:33:23
さらにしつこいが、scalar_refするなら$$fileを置換に突っ込むんだった罠。
チラ裏。
>>322が気になった今日この頃。比較表とかないかな？
376:362
09/03/21 22:40:12
重ね重ね、ありがとうございます。
日付を表記するのに、yyyy-mm-ddは、そのhtmlファイルでその更新日の
部分だけにしてあります。よくわからないなりに、ここだけは見つかるように、
ここだけの形にしておかなければいけないだろうと思いました。
CPANからの導入についても明日確認してみます。
正規表現の本もperlの本も、いつか勉強しなければと積ん読になっています。
(恥ずかしながら)
ところで私、普段はぜんぜん違う板の住人です。切羽詰まってここに来ました。
こんなに速くレスをいただけるとは思っていませんでした。
本当にありがとうございます。
perl、勉強しますね。今はお金とか在庫とかの勘定ばかりやっていますが、
小学生の頃はベーマガとかで勉強したクチです。
おやすみなさい。
377:デフォルトの名無しさん
09/03/21 22:41:04
PBPとtokuhiromの受け売りだが、
13月32日に引っかけないためにはRegexp::Commonを使おう
378:デフォルトの名無しさん
09/03/22 00:28:52
>>369
これはちょっとマズいんじゃないの？
コメントでは YYYY-MM-DD と書いてるけど、実際の処理が
\d{4}-\d{2}-\d{2] では、全然年月日じゃない文字列にもマッチしかねない。
もちろん年月日かどうか完璧な判定はできないけど、
>>362 にあるようにマッチさせる文字列が昨日の日時でいいなら
そういう風に限定すべき
379:デフォルトの名無しさん
09/03/22 01:19:26
某所で再びFizzBuzz問題がはやっているようなのでPerlで書いてみました！添削してください！
perl -e 'for ($n=1;$n<16;$n++) {my$res;!(($n%3||($res="Fizz"))&&($n%5||($res=$res."Buzz")))||($res&&print "$res\n")||(print "$n\n");}'
380:戦犯369
09/03/22 02:48:29
>>378
thxです。
ついでに、sample.htmlのエンコードを考慮してみた。
# UTF-8（BOMなし）で保存してね
use strict;
use warnings;
use utf8;
use DateTime;
use Encode::Guess;
use File::Slurp;
# ファイルの中身を変数に突っ込む
my $file_name = q{sample.html}; # $ARGV[0]とかの引数で渡すとか好きにして
my $file = read_file($file_name, scalar_ref => 1);
# ファイルのエンコードを類推して、UTF-8に変換する
# 決め打ちならこんなことをせず、use Encodeしてdecode, encodeする
my $encoding = guess_encoding($$file, qw(cp932 euc-jp utf8));
die "Can't guess"
unless ref $encoding;
if ($encoding->name() ne 'ascii' || $encoding->name() ne 'utf8') {
$$file = $encoding->decode($$file);
}
# 昨日のYYYY-MM-DDを得る
my $yesterday = DateTime->now(time_zone => 'local')
->add(days => -1)
->ymd();
# つづく
381:戦犯369
09/03/22 02:49:50
# つづき
# >>362式なら
# my (undef, undef, undef, $day, $month, $year) = localtime();
# my $yesterday = sprintf("%04d-%02d-%02d", $year + 1900, $month + 1, $day - 1);
# ファイルの中身で昨日のYYYY-MM-DDに合致すれば変換する
$$file =~ s{
($yesterday)
}{
# ファイルに書いてある最終更新年月日（昨日）を、
my ($year, $month, $day) = split q{-}, $1;
# 翌日（つまり今日）に変換する
DateTime->new(year => $year, month => $month, day => $day)
->add(days => 1)
->ymd();
# >>362式なら
# sprintf("%04d-%02d-%02d", $year, $month, $day + 1);
}xmseg;
# ファイルのエンコードを元に戻す
if ($encoding->name() ne 'ascii' || $encoding->name() ne 'utf8') {
$$file = $encoding->encode($$file);
}
write_file($file_name, $file);
__END__
まあ、
SSI > テンプレート使用 > ベタ置換
の順が楽なんだろうけど。
382:デフォルトの名無しさん
09/03/22 02:57:58
なにを持って善しと成すのかわからんけど、俺も作ってみた
perl -e 'for(1..15){my$r;$_%3or$r="Fizz";$_%5or$r.="Buzz";$r or$r=$_;print"$r\n"}'
添削してくだちぃ
383:デフォルトの名無しさん
09/03/22 03:12:33
個人的には、勉強するためならいきなりCPANに頼るのはどうかと思った。
いきなりDateTimeを使わずにsprintfでやった方がいいし、
いきなりFile::Slurpを使わずにopen関数を使った方がいいと思うけど、
面倒くさすぎて放り投げられるとPerlスキーとしては寂しいので、
CPANに依存してみた。今は反省している。
FizzBuzzについては、
1. 要件を実現出来ているんなら、
2. ワンライナーなら、
3. FizzBuzzでゴルフしたり難読化選手権を開くんじゃなければ、
多少腕白でもいいと思うけどね、俺は。
敢えてPBP的に見ても、
a. C的なforでなくforeachを使おうとか、
b. $_でなくてちゃんとforeach my $num (1 .. 15)にしようとか、
c. ""で括らなくていいときは''で括ろうとか、
そんなつまらない指摘しか出来ないけど。
あとはあれか、>>379なら、C的なforをどうしても使うときは、
$n <= 15の方が直感的とかか。
384:デフォルトの名無しさん
09/03/22 03:20:37
あ、うそ、ごめん。
>>381の二つめの>>362式は、3月32日になるｗ
ゆえに素直にDateTime使おう。
385:379
09/03/22 03:36:54
>>382-383
ありがとうございます！>>382さんのコードの方がPerlっぽくていいですね。
ぼくのはJavaとかでも使えるテクしか使ってないや。
最近Perlはワンライナーしか書かなくなってさっぱり鈍ってしまった。
386: ◆TWARamEjuA
09/03/22 10:10:15 BE:6861097-BRZ(10001)
1日前ってそんなに難しいのかしら？
time - 86400
でよさそうな。。。
387:デフォルトの名無しさん
09/03/22 10:34:11
うるう秒をちゃんと扱わないシステムならな
388:デフォルトの名無しさん
09/03/22 11:15:10
>>387
UNIX時はどれも閏秒は算定してないと思うが。
システムによって現在のUNIX時が食い違ったら困るだろ。
389:デフォルトの名無しさん
09/03/22 13:00:39
超頭悪い会話が繰り広げられている
390:デフォルトの名無しさん
09/03/22 13:15:46
>>389
>>389
391:362
09/03/23 05:38:24
おはようございます。
ご報告が遅くなりました。
>>381さんに教えていただいたスクリプトを昨日、会社で使って
(ファイル名など一部変えました)、まだ1日(1回)だけですがテストとしては
うまく動いたようです。
今朝出社してうまく書き換わっているかどうか。これから出勤です。
うまくいったら引き続き使います。
ではみなさま、また縁がありましたらどうぞよろしくお願いします。
392:デフォルトの名無しさん
09/03/23 07:49:00
>>389
仕様上はどちらでもいいことになっているが、先発製品との互換上、
どのシステムもうるう秒は算定していない。
うるう秒はいつ発生するか算定できないからどっかから情報取得する必要があるし、
tarファイルを移転する時とか、NTP使う時とか困るだろ。
よほど金融系のシステムとかでなければ、NTPクライアントを随時走らせておけば大きな支障はない。
393:デフォルトの名無しさん
09/03/23 09:22:29
いちおうtzfile(5)とか見ればわかるけどうるう秒扱えるようにはなって
いるんだよね。
実用上はうるう秒のたびに時計を進めたり戻したりして1日の秒数は
一定としてしまうのが楽な場合がほとんどだから設定した例は自分の
周りでは見たことない。
天文とかは過去のある時刻との間の時間みたいのをきっちり出せない
と困りそうだけど。
394:デフォルトの名無しさん
09/03/23 09:23:10
うるう秒を勘案するシステムは存在しないってこと？
395:デフォルトの名無しさん
09/03/23 13:06:04
>>394
一般的なUNIXtimeの扱いの話であって、
そういったシステムが存在しないとは誰も言ってない。
極端な話、協定世界時を管理してるシステムなんかは当然勘案しなきゃ困るでしょ。
396:526
09/03/24 19:51:11
ここで聞くのが適切かどうか心配ですが、違ったら誘導願います。
debian etch の上で、perl-tk をいれて触っています。
どうにも日本語が表示されませんので、どなたか詳しい人、アドバイスをお願いします。
perlは、 v5.8.8
perl-tkは、804.027-7
です。
よろしくお願いします。
397:デフォルトの名無しさん
09/03/25 04:25:03
エスパーじゃないんだからさ、それじゃ答えようがないよ。
とりあえず>>4
あとやったこと書け
398:デフォルトの名無しさん
09/03/25 14:49:23
ここで聞くのが適切かどうか心配ですが、違ったら誘導願います。
昨日から体の具合が悪いんですが、何かの病気でしょうか？
どなたか詳しい人、アドバイスをお願いします。
どんな薬を飲めばいいですか？医者に診せたほうがいいですすかね・・・
何科の医者に行けばいいですか？
よろしくお願いします。
399:デフォルトの名無しさん
09/03/25 14:53:25
エスパーじゃないんだからさ、それじゃ答えようがないよ。
400:デフォルトの名無しさん
09/03/25 17:06:54
@test
赤、A、あ、 #$test{0}
黄、A、い、 #1
青、A、あ、 #2
赤、B、あ、 #3
赤、C、い、 #4
青、A、あ、 #5
例えばこういう配列があったとして
各項目ごとに一番多い文字列（赤 A あ）をそれぞれ取り出したいんですがどのようにすればいいんでしょうか？
401:デフォルトの名無しさん
09/03/25 17:28:24
「こういう配列」
402:デフォルトの名無しさん
09/03/25 17:36:06
>>400
my @dat = ( 'red,A,a', 'yellow,A,b', 'blue,A,a', 'blue,B,a' ) ;
my @cache ;
for ( @dat ){ my $cnt = 0 ; $cache[$cnt++]->{$_} ++ for split /,/ ; }
printf "%s\n", sort { $_->{$b} <=> $_->{$a} } keys %{$_} for @cache ;
日本語？ => 自分で考えて
同じ個数の物があったら？ => 知らん。
403:デフォルトの名無しさん
09/03/25 23:32:24
○○.cgiのプログラムで、
「exec △△.pl $param1」とexecを使用して呼び出しても、
呼び出し先の△△.plが実行されないです。
環境が原因と思うのですが、
初心者で何が原因かわからないです。
404:デフォルトの名無しさん
09/03/26 12:16:36
>>400
二次元配列のようでもあるし、コメント見るとハッシュにしてるし…
せめてPerlの書式で書いてくれ
405:400
09/03/26 18:21:17
>>402
レスありがとうございます。
ただちょっと仕様を変更したので、普通の配列の中から一番多い要素を取り出すものに変えようと思ったのですが、
初心者なため>>402のコードでわからない部分があり、改良することができません。
どなたか配列の中で一番多い要素を取り出すサブルーチンを書いていただけないでしょうか。
406:デフォルトの名無しさん
09/03/26 18:50:35
>>405
いくら出すかも書いておくと話が早いよ
407:デフォルトの名無しさん
09/03/26 18:52:32
URLﾘﾝｸ(www.seshop.com)
『10日でおぼえる Perl /CGI入門教室 第2版 』2005/9/5発売。
を購入しようと思っています。
この書籍が出た時点のバージョンのＰｅｒｌをＷｉｎｄｏｗｚ Ｖｉｓｔａで
動かすことは可能でしょうか？バクがでたりエラーなどは大丈夫でしょうか？
これからＰｅｒｌを勉強するので詳しいことはわかりません。
なお、ＰＨＰ関連の書籍に付録で付いていたＸＡＭＰＰ１．６．５はインストール済みで
少なくともＶｉｓｔａで動作確認済みとＰＨＰの書籍にありました。
どなたか回答よろしくお願いいたします。
408:デフォルトの名無しさん
09/03/26 19:32:34
perl タダなんだから、自分でダウンロードして確かめてみればいいじゃん。
409:405
09/03/26 20:37:12
しくしく。。。
どう書けばいいのかわからないんです、アドバイスください
@array = ('マグロ','鯛','イワシ','鯛','マグロ','鯛');
&extract(@array);
#一番多い要素を書き出す
sub extract {
foreach (@_) {
$hash{$_} ++;
}
while (($key, $value) = each(%hash)) {
push(@test, $value);
}
@sort = sort{$b <=> $a} @test;
$shift = shift(@sort);
$aa = $hash{$shift};
print "$aa";
}
410:デフォルトの名無しさん
09/03/26 20:44:10
っ「List::Utilのmax」
411:デフォルトの名無しさん
09/03/26 22:47:29
>>409
初心者をあまりいじめるのも可哀想なのでとりあえず書くけど、正直なところもっとちゃんと自分で調べてほしい。
>>402 のヒントがあれば本を読むなりウェブでリファレンスを引くなりして調べようがあるとおもう。
人のコードを盲目的にコピペするのではなくて、ちゃんと一行一行やってることを理解するようにしないと上達しないよ。
シンタックスシュガーはあえて封じた。
use strict;
use List::Util qw(max first);
my @data=('foo','bar','poo','foo');
my %cache;
foreach my $entity(@data) {
$cache{$entity}=$cache{$entity}+1;
}
my $maxval=max(values(%cache));
my $res=first(sub{$cache{$_}==$maxval},keys(%cache));
print $res."\n";
412:デフォルトの名無しさん
09/03/28 17:23:43
>>409
#一番多い要素を書き出す
sub extract {
foreach (@_) {
$hash{$_} ++;
if($max < $hash{$_}){ $max = $hash{$_}; } #追加
}
while (($key, $value) = each(%hash)) {
if($value == $max){ print $key,"\n"; } #追加
}
}
413:デフォルトの名無しさん
09/03/28 20:50:08
sub extract{
my %hash;
my $res = $_[0] ;
for ( @_ ){ next if ++ $hash{$_} < $hash{$res} ; $res = $_ ; }
return $res ;
}
414:デフォルトの名無しさん
09/03/30 04:58:54
リストの略記法って (1..10) しかないんでしょうか
(1がずっと続くよ) みたいな書き方が知りたいです
415:デフォルトの名無しさん
09/03/30 07:28:29
(1) x 10
416:デフォルトの名無しさん
09/03/30 09:31:19
DB_Fileってundefは保存できないんですか
""とundefどうやって区別したらいいんでしょうか
417:デフォルトの名無しさん
09/03/30 10:15:31
>>415
どもです
418:デフォルトの名無しさん
09/03/31 13:31:20
分類と項目が並んでいるリストがあったとして
各項目はいくつかの分類のどれかに属していて、
分類ごとにまとめて処理をしたいので、
項目のリストを分類別に作りたい
for (keys %class) {
for (@items{$_}) {
みたいに配列の連想配列が使えるといいのだけれど
何かスマートな解決法はありますか
419:デフォルトの名無しさん
09/03/31 13:37:48
PerlでWebからのレスポンスを標準出力すると文字化けが発生してしまいます
色々とエンコードも試したのですが解決しませんでした
文字コード判別もなぜか失敗しました
↓がDumpした結果ですが、文字コードは何なのか教えてくれませんか
SV = PV(0x1cffd24) at 0x1bbe7e4
REFCNT = 1
FLAGS = (POK,pPOK)
PV = 0x1832f24 "G\"\22w\221U\207L\241\300\361l\16\326ao\352d\351\30\265m\303Ox
\203\24\213\2262\273\271\274\5\273S\307\323\367b\372\277\340\17\254#\257\206D\24
3\243\243\265\342{4_\254j@\213\266gV\3417\236\237\265\331U\370\266\300\2477\227\
357\324D!\362&\32\204\233h\325\36l\301S\370\210n\0366\242\373\205lX\203\317\225\
375\fm\324\322\213\347\324\223\270\360\203'e\253UB\221\"\360l\340\305\211\357Q|u
\377\1\24yz\316\302\3\0\0"\0
CUR = 143
LEN = 676
420:デフォルトの名無しさん
09/03/31 15:16:24
>>416
defined
>>418
ハッシュのキーに分類の名前
ハッシュの要素に項目の配列リファレンスとか入れたらどうだろう
$item{分類} = [qw/項目 項目 項目/];
みたいに
421:デフォルトの名無しさん
09/03/31 15:44:36
$str =~ s/<hoge>//;
という正規表現を使って複数回文字を削除しようとしています
while($str =~ /<hoge>/){ $str =~ s/<hoge>//; }
とすると無駄な処理が入るので、ループの判別のところだけで処理したいんですが、
そういう書き方は可能でしょうか
while($str =~ s/<hoge>//);
と書くとエラーを吐かれました
do{''} while($str =~ s/<hoge>//);
や
while($str =~ s/<hoge>//){}
だとうまくいきますが、なんか気持ち悪いです
422:デフォルトの名無しさん
09/03/31 15:51:12
1 while $str =~ s/<hoge>//g; かなぁ
423:デフォルトの名無しさん
09/03/31 15:51:37
>>421
1 while $str =~ s/<hoge>//; とか
$str =~ s/<hoge>//g; とか
424:デフォルトの名無しさん
09/03/31 16:16:08
>>420
$class と $itemのセットを記憶するのに、
push(@{$items{$class}}, $item);
でいけました
@$items{$class} ではないという部分で引っかかりました
念のため[]で初期化したけど、外しても問題なく動くあたりが流石
425:デフォルトの名無しさん
09/03/31 16:39:15
>>423
上では無駄な1が気持ち悪いです
下では $str = '<h<hoge>oge>' のときに削除できません…
426:デフォルトの名無しさん
09/03/31 16:48:20
>>425
リャマ本に似たようなコード載ってるから、じゃ気持ち悪くならない理由にならない？
上の方は定数式(1)は最適化で取り除かれるんだとさ
427:デフォルトの名無しさん
09/03/31 16:57:42
>>426
見た目が気持ち悪いのと処理的に気持ち悪いのは違うんですよ
「全部取り除く」って処理に全く関係ない1なんかがあるのは生理的に気持ち悪いです
{}で終わるのも一文なのに;がないから処理が終わってない感じがいやらしいです
リャマ本に上が載ってるなら、他にやり方はないんですかね…
もしかしたら正規表現で再帰的に検索してくれるオプションがあるかもと思ってたんですが…
428:デフォルトの名無しさん
09/03/31 17:21:08
>>427
再帰的にやるなら
my $hoge;
$hoge = qr/<(??{$hoge})?h(??{$hoge})?o(??{$hoge})?g(??{$hoge})?e(??{$hoge})?>/;
$str =~ s/$hoge//g;
とか? もっと綺麗に書けそうだが。
5.10以降ならキャプチャバッファ(see perl5100delta)使って一行でしかも効率良く書けるはず。
429:デフォルトの名無しさん
09/03/31 19:56:14
>>428
ﾄﾝ
キャプチャバッファについてググってみます
430:デフォルトの名無しさん
09/03/31 19:59:32
>>427
my $str = '<h<hoge>oge>' ;
L:{ $str =~ s/<hoge>//g and redo L; }
1 while COND の方が断然気持ち良いけどさ。
431:デフォルトの名無しさん
09/04/01 13:55:08
「 気 持 ち 悪 い 」
・・・か。それじゃＣ言語の
if (a == 1) {
hoge();
}
なんか、気持ち悪さ１０００％だな。
なぜ「等しい」の判定に () が必要なのか。
なぜ hoge を呼び出すのに { } が必要なのか。
なぜ hoge のうしろにも () がくっついてるのか。
アメリカ人は苗字と名前を逆に言う。
住所も番地から逆に言う。
日付も逆に言う。
実に「気持ち悪い」。
だが、そういうもんだ。いちいち疑問にしてたらキリが無い。
順応しろよ、順応。
432:デフォルトの名無しさん
09/04/01 13:56:13
自分で拡張すればいい
433:デフォルトの名無しさん
09/04/01 14:01:47
アッー
434:デフォルトの名無しさん
09/04/01 15:41:46
>>431が気持ち悪い
435:デフォルトの名無しさん
09/04/01 17:37:19
activeperl 5.8.8を使っています
-d でフォルダかどうか判断する時に、
5Cで終わっているフォルダ名を正しく扱えません
どうやったら回避できますか
436:デフォルトの名無しさん
09/04/01 18:30:23
5Cでエスケープしてみては？
437:デフォルトの名無しさん
09/04/01 18:58:01
ちょっと意味が判らないのですが、
-d "$file\\"
という書き方でも結果は同様です
438:デフォルトの名無しさん
09/04/01 19:04:39
必ず失敗するかというとそうでもないようで、
opendir(dir, '.');
for $file (readdir(dir)) {
if (-d "$file") {print "$file is directory.\n"}
else {print "$file is file.\n"}
}
これを
aaa
aaa２―
aaa―
こんな状況で実行すると
. is directory.
.. is directory.
aaa is directory.
aaa― is directory.
aaa２― is file.
test.pl is file.
_ is file.
こうなります
439:デフォルトの名無しさん
09/04/01 19:22:59
で、何が問題なの?
440:デフォルトの名無しさん
09/04/01 19:51:36
aaa２―はフォルダなのに
aaa２― is file.
となってしまうことが問題
441:デフォルトの名無しさん
09/04/01 20:05:27
-dの返り血をちゃんと調べたのか?
442:デフォルトの名無しさん
09/04/01 20:23:03
-dの戻り値なんて1か0しか無いのでは
443:デフォルトの名無しさん
09/04/01 20:47:53
>>431
至極真っ当
理に叶ってる
()の中はbooleanが必要とされてる
{}の中は場合によって処理されるか否かなんだからブロックで囲まれてて当然
だけどwhile(～){}は関数的に使われてるのにセミコロンがない
これが問題
気持ち悪い原因
つまりwhile(～);と書ければ万事解決なんだよ！！！！
444:デフォルトの名無しさん
09/04/01 21:49:19
順応と思考停止と信者脳って紙一重だなぁ、って>>431見ると思うね。
445:デフォルトの名無しさん
09/04/01 21:57:59
>>443
while(~){}は
while(~){
();
}
の省略記法だよ？B::Deparseで確認してみ？
勝手に省略して、省略してしまった部分について気持悪がられても…
「();が気持悪い！」って言われたら、
「そりゃごもっとも、俺もそう思う。」と言わざるを得ないけどさ。
446:デフォルトの名無しさん
09/04/01 22:04:09
-f -d -eについても調べたところ、-eにすら通っていない
aaa: -f, -d1, -e1
aaa―: -f, -d1, -e1
aaa２―: -f, -d, -e
ディレクトリを再帰的に辿って全部のファイルに対して云々、みたいな
処理をさせると、フォルダの末尾が5Cかもしれない問題は必ず発生すると思うんだけど、
どうやって回避してるの?
447:デフォルトの名無しさん
09/04/01 22:04:57
省略記法てーのは正しくないな。
perlではこう解釈されるってのが正しいのか。
448:デフォルトの名無しさん
09/04/01 22:13:47
>>446
あなたの環境が何か解らないからスルーしてたけど、
スクリプトのエンコーディングとディレクトリのは合ってるの？
winなら>>4とかそこらへんの問題じゃないの？
私の環境だと問題が出ないから力にはなれません。
449:デフォルトの名無しさん
09/04/01 22:43:19
>>4を入れても改善しないようです
aaa: -f, -d1, -e1
aaa?\: -f, -d, -e
aaa?Q?\: -f, -d, -e
むしろ悪化しています
環境はwindowsXPです
450:デフォルトの名無しさん
09/04/01 23:34:09
なんで""つけるんだよ
451:デフォルトの名無しさん
09/04/02 00:20:37
>>4 に答えが書いてあるじゃん。なぜそうしない？
452:デフォルトの名無しさん
09/04/02 00:35:54
>>4は、表示で化けるとか、検索とか正規表現がうまく行かないとかの、
日本語の文字列としての取り扱いを完璧にする方法だけど、
ファイルシステム絡みは何も改善しないように見える
唯一、ファイル名をcp932でencodeするように注意はあるけど、
それは必要な処理であって、今回のケースを解決しない
453:デフォルトの名無しさん
09/04/02 00:54:42
cygwinと同じ問題じゃないの?
ActivePerlがMultiByte系のW32API使ってないんじゃ
454:デフォルトの名無しさん
09/04/02 00:59:15
activeperlではどうやっても無理、というはっきりした結論があれば、
他の言語も含めた別の解決法を探すんだけど、
ぐぐってもそのへんを断言した文章は見つからない
逆に、このスレでは口を揃えて出来る出来ると言っている
サンプルは1バイトも出てこないけど
455:デフォルトの名無しさん
09/04/02 01:53:05
Perlでは出来ないし、ここにいるやつらは知ったかぶりの初心者ばかりだから、
PerlはあきらめてPythonでやるといいよ!!
456:デフォルトの名無しさん
09/04/02 04:29:43
うちの環境で"activeperl エンコーディング readdir"でググって一番上に出てくる
URLﾘﾝｸ(homepage2.nifty.com)
には
> 「Active Perl V5.8.8」では日本語の「ファイル名」のファイルは開けない。
って書いてあるけど。
457:デフォルトの名無しさん
09/04/02 08:13:35
＞日本語の「ファイル名」のファイルは開けない
というのはそのサイトの人がUTF-8のままで処理しようとしているからでは?
別のサイト
URLﾘﾝｸ(www.aritia.org)
では内部コードはUTF-8でもファイル操作時はShift_JISに
戻せみたいなことが書いてあるが
open(IN,encode('cp932',"<表.txt")) or die "open(表.txt):$!\n";
少なくともまったくできないってことはないだろ
458:デフォルトの名無しさん
09/04/02 08:45:49
単に説明が面倒だから、全部できないことにしとけ、という手抜きだろ
459:デフォルトの名無しさん
09/04/02 10:27:31
PHPにはPEAR::Text_Passwordっていう便利なモジュールがあって、
<?php
require_once "Text/Password.php";
$a=new Text_Password;
$b=$a->create(8, 'unpronounceable', 'alphanumeric');
echo $b ;
?>
このコードを書くだけで、ランダムなパスワードを
自動で生成してくれる。
同じことをperlでやったら６５行は書かないといけない。
460:デフォルトの名無しさん
09/04/02 10:53:36
その65行をライブラリとして使えば変わらん
461:デフォルトの名無しさん
09/04/02 11:20:31
そのText/Password.phpの中身は何行だよ
462:デフォルトの名無しさん
09/04/02 11:46:17
PerlにはString::Randomっていう便利なモジュールがあって、
use String::Random;
print $a=String::Random->new->randregex('[A-Za-z0-9]{8}');
このコードを書くだけで、ランダムなパスワードを
自動で生成してくれる。
同じことをphpでやったら６行は書かないといけない。
463:デフォルトの名無しさん
09/04/02 12:29:06
>>449
> >>4を入れても改善しないようです
>>4には
> # ※2. OS に渡す文字列（ファイル名，dos コマンドのオプションなど）は、
> # この例のように cp932 でエンコードする必要があります。
と書いてあるが、なぜそんなことが必要なのか、よく考えてごらんよ。
すると、OS からもらった文字列は逆にcp932 からutf8 にデコード
しなきゃならない、という事にも気づけるだろう。
464:デフォルトの名無しさん
09/04/02 14:07:20
>>463
問題を勘違いしてる
0x5Cがエスケープ文字だからトラブってるのではなくて
Windowsのディレクトリセパレータなのが問題
465:デフォルトの名無しさん
09/04/02 15:49:06
>>464
> Windowsのディレクトリセパレータなのが問題
へ～、そうなんだ。
466:デフォルトの名無しさん
09/04/02 15:54:30
>>462
ﾜﾛﾀｗｗｗ
467:デフォルトの名無しさん
09/04/02 17:30:30
>>4 に書いてあるとおり、教科書的な書き方をすれば、こうなる。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;
opendir dir, encode('cp932','.');
@files = readdir dir;
for (@files) { $_ = decode('cp932', $_) }
for $file (@files) {
if (-d encode('cp932',$file)) {print "$file is directory.\n"}
else {print "$file is file.\n"}
}
ポイント
・OS に渡す文字列（ファイル名，dos コマンドのオプションなど）は、utf8 → cp932 に変換すること。
・逆に OS からもらう文字列（readdirなど）は cp932 → utf8 に変換すること。
468:デフォルトの名無しさん
09/04/02 18:38:39
下記のように1～5万の数をランダムに表示していき、かつ一度表示した数は表示しないというコードをゴリゴリ書きました。
しかしこれは何故か3万回を超えた辺りから重複による何十回ものスキップ処理が入ってしまいます。
3万回数字を表示した時点でスキップが起こる確率は3/5=60%なので何十回ものスキップが頻発するというのはおかしいです。
（例えば10回のスキップ処理が連続で起こる確率は0.6^10でたった0.6%であるにも関わらず、こういう規模の事象が頻発する。3桁レベルのスキップも起こったりする。）
Perlのランダム関数がおかしいとは考えにくいのですが、何故こういう事が起こってしまうんでしょうか？教えてください。
$starttime = (times())[0];
$sessionstarttime = (times())[0];
$count=1;
$skipcount=0;
@triedNumbers=();
print " count skip num total this\n";
while(1){
$number = int(rand(50000))+1;
$new = 1;
foreach(@triedNumbers) {
if($number == $_) {
$skipcount++;
$new = 0;
last;
}
}
if($new==0){next;}
push(@triedNumbers,$number);
$endtime = (times())[0];
$totaltime = $endtime-$starttime;
$sessiontime=$endtime-$sessionstarttime;
printf "%6d %4d %6d %3ds %3ds\n", $count, $skipcount,$number,$totaltime,$sessiontime;
$sessionstarttime = (times())[0];
$skipcount=0;
$count++;
}
469:デフォルトの名無しさん
09/04/02 18:40:13
環境は以下です。
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
WindowsXP SP3
470:デフォルトの名無しさん
09/04/02 18:54:55
Win32::APIガリガリ叩いてやればできたはずなんだけど、英語の記事だったから読んでないしどこでみたかも覚えてない
471:デフォルトの名無しさん
09/04/02 19:03:36
>>468
This is perl, v5.8.9 built for i386-freebsd-64int
だと以下のようになるが。
32264 3 48037 119s 0s
32265 4 43101 119s 0s
32266 2 38633 119s 0s
32267 2 31075 119s 0s
32268 0 8513 119s 0s
32269 1 49402 119s 0s
32270 1 27972 119s 0s
32271 0 32400 119s 0s
32272 3 28045 119s 0s
32273 0 35972 119s 0s
32274 0 22672 119s 0s
32275 1 44140 119s 0s
32276 2 32443 119s 0s
32277 2 41433 119s 0s
32278 2 33357 119s 0s
32279 0 6772 119s 0s
32280 2 26341 119s 0s
472:468
09/04/02 19:03:40
当初の目的は下のコードでさくっとできるようになりました。
>>468のスキップ多発については原因が分かりません。
@numbers=();
for my $i (1..50000){
push(@numbers,$i);
}
for my $i (0..$#numbers){
$rand = int(rand(@numbers));
$tmp = $numbers[$i];
$numbers[$i] = $numbers[$rand];
$numbers[$rand]=$tmp;
}
for my $i (0..$#numbers){
print "$i:$numbers[$i]\n";
}
473:デフォルトの名無しさん
09/04/02 19:10:27
>>468
所詮線型合同法だろ？ 偏りあるしそんなもんよ。
List::Utils::shuffle(1..50000) じゃダメなのか。
474:デフォルトの名無しさん
09/04/02 19:11:18
>>472
それは偏りが出るまずいアルゴリズム。
っ「Fisher-Yates shuffle」
475:デフォルトの名無しさん
09/04/02 19:21:05
>>468-469
その環境での乱数の有効ビット数が15だから。
rand(1)が返す数の種類が32768通りしか存在しないので、3万時点のskip確率は90%以上。
乱数のビット数は use Config して $Config{randbits} で確認できる。
476:デフォルトの名無しさん
09/04/02 19:55:54
>>467でも結果は同じ
aaa is directory.
aaa― is directory.
aaa―２ is directory.
aaa２― is file.
テスト結果で書くと
aaa: -f, -d1, -e1
aaa―: -f, -d1, -e1
aaa―２: -f, -d1, -e1
aaa２―: -f, -d, -e
こんなん
aaa―２みたいに途中に5cを含む場合はエスケープとか無しに普通に扱える
aaa―が何で通るのかが謎だけど、
aaa２―みたいなのは、aaa２―/hoge みたいにフォルダ内のファイルを
直接指定してもエラーになる
結論としては、そんなフォルダ名を使うな、ということになる
ファイル名もNGなんだけど、大抵は拡張子があるので、問題になることがない
477:468
09/04/02 20:08:30
>>471,473,474
乱数の有効ビット数というのが原因のようですね。
手持ちのWindowsだと15でしたがLinuxでは48でした。
Fisher-Yates法では偏りが出る様なので>>473の方法でやってみようとおもいます。
レスありがとうございました。
478:468
09/04/02 20:10:03
>>475さんもありがとうございました。
479:デフォルトの名無しさん
09/04/02 20:13:48
>>476
aaa― が通るのは aaa があるから。
aaa２―/hogeの失敗は、何らかの単純ミスの可能性が高い。
>>446
＞どうやって回避してるの?
@dirs=split /[\r\n]+/,`dir /s/b/aD`; とか？
再帰？ 再帰って何だ？
ファイルテスト演算子内から呼ばれるwin32_stat()内で終端の\を加工してるのが直接の原因。
なんでも FindFirstFile() and stat() are buggy with a trailing backslash, なので、
so change it to a forward slash (～5.8.7.815)とか、
remove additional trailing slashes (5.8.8.816～)という対策をしてるとの事。
-dを使う限りstatを避けることは出来ないが、There's More Than One Way To Do Itという
決まり文句を持ち出すまでもなく回避するには数多くの方法がある。
1.くどいけど @dirs=split /[\r\n]+/,`dir /b/aD`;
2.Win32::FileにGetAttributesがあるのでソレを使う
3.Win32API::FileやWin32::APIで好き勝手にやりたい放題？
4.面倒だから -e "${fn}/." で代用 (chdir/opendirにも使える/-fはopenで代用)
X. グロブ(<*>)を使うと、statに通らないファイル名は入ってこない
正しい対応.バグレポートを出し、余裕があればパッチも投稿する。
例えば、WideChar化してから終端加工して再度MultiByteに戻すとか。
楽な対応.そんなフォルダ名は使わない、見つけたら即リネーム
480:デフォルトの名無しさん
09/04/02 20:47:30
>>467 の
> if (-d encode('cp932',$file)) {print "$file is directory.\n"}
がおかしいんじゃないの？
エンコードするから、sjis の2バイト目の0x5Cが復活する。
if (-d $file) {print "$file is directory.\n"}
でうまくいくと思うが。
481:デフォルトの名無しさん
09/04/02 21:18:47
>>479
詳しく㌧
-d 以外にテストの方法があったとしても、
次にそこに対してopendirすると失敗するので、結局目的は果たせない
例えば、ディレクトリ構造のツリーを表示するとかそんなプログラム
5.10.0 とか 5.8.9.825 では直っているかしら
482:PHPの神
09/04/02 22:15:14
>>462
お前は何か勘違いしているようだな、、、
PHPでは
「発音できないパスワードを生成する」
とか、そういうことができるんだぞ
483:デフォルトの名無しさん
09/04/03 01:52:56
ここって教えてくれる人がたくさんいていいな・・・
VBAスレなんて、、、
484:デフォルトの名無しさん
09/04/03 12:19:33
→
485:デフォルトの名無しさん
09/04/03 12:45:06
VBAを使う人というのは、VBAを使っても
嘔吐感、嫌悪感が生じない人なんだろ？
なら、数が限られてくるわな。
486:デフォルトの名無しさん
09/04/04 15:09:01
>>481
最初に479に間違いがあったので訂正。
誤 4.面倒だから -e "${fn}/." で代用 (chdir/opendirにも使える/-fはopenで代用)
正 4.面倒だから -e "${fn}/./" で代用 (chdir/opendirにも使える. -fはopenで代用)
末尾への/.追加だけだと5.8.8以降ではchdirには使えなかった。
chdirの確認を常用してる5.8.7.813でしかやってなかったという単純ミス
>次にそこに対してopendirすると失敗するので、結局目的は果たせない
>例えば、ディレクトリ構造のツリーを表示するとかそんなプログラム
そんなに難しいことをやっているの？ ツリー表示程度なら
sub tree {
# my(@dir,$ent) = map { chomp;$_ } `dir "$_[0]" /b/aD`; # ,`dir "$_[0]" /b/aDH`;
#↓は↑の手抜き変形でほぼ同内容
my(@dir,$ent) = eval { opendir my $h,"$_[0]/.";grep {-d "$_[0]/$_/." and !/^\.+$/} readdir $h };
while(defined($ent = shift @dir)) {
print "$_[1]+${ent}\n";
&tree("$_[0]/${ent}",@dir ? $_[1].'| ' : $_[1].' ');
}
}
&tree('.');
みたいにopendir無しでも書ける気がするし、opendirも成功しそうな気がするんだが。
opendirに関しては最悪DLL違いでの挙動差もありえなくは無いけどね。
487:デフォルトの名無しさん
09/04/04 15:59:30
opendirはできなくても、中にあるファイルをopenは出来る
だからうまいことすれば大抵のソフトは回避できると思うけど、
そんな僅かなリスクの為に常時opendir禁止というのは辛すぎる
488:デフォルトの名無しさん
09/04/04 16:59:22
>>486
>例えば、ディレクトリ構造のツリーを表示するとかそんなプログラム
長いよ。長すぎるよ。そんなん書いたら保守性が悪いだろ。
いいかい？
system("tree");
ほら、たった一行でできただろ。
489:デフォルトの名無しさん
09/04/04 20:53:37
treeコマンドのあるOSだけじゃないし
490:デフォルトの名無しさん
09/04/04 22:48:39
5C が問題になるＯＳには、たいてい tree コマンドはあるよ。
491:デフォルトの名無しさん
09/04/05 00:27:34
Perlを使う人というのは、Perlを使っても
嘔吐感、嫌悪感が生じない人なんだろ？
なら、数が限られてくるわな。
492:デフォルトの名無しさん
09/04/05 01:25:46
優越感と陶酔感が生じますよ
493:デフォルトの名無しさん
09/04/05 01:30:46
>>492
ぷｗ
494:デフォルトの名無しさん
09/04/05 02:26:05
>>432
田植えならしかるべきとこでやっていただきたい
あーゲシュタルト崩壊してきた
495:デフォルトの名無しさん
09/04/05 11:24:11
Perl使ってるひとはいつもこんな主張
"他の言語は使えないから、Perlが一番いい"
Perlの良いことを一言も言えない
496:デフォルトの名無しさん
09/04/05 11:51:14
ポテンシャルを語るのに飽きたひと
いわゆるYAGNI
みたいな？
497:デフォルトの名無しさん
09/04/05 18:57:42
良い点なんて他との比較でしか論じれないからな
とりあえずperlが使えれば、好奇心以外に他の言語に乗り換える動機が発生しにくいので、
perlしか使わない人がおおい
498:デフォルトの名無しさん
09/04/05 22:22:18
Perlの世界って閉じて荘
499:デフォルトの名無しさん
09/04/06 00:35:28
そもそもどんな人なら「Perl使ってるひと」を名乗ってもいいのだろうか。
もしかすると>495に答えを授けた自称「Perl使ってるひと」も
>497の「perlしか使わない人」も「Perl使ってるひと」ではないかもしれない。
500:デフォルトの名無しさん
09/04/06 19:11:10
if(($str =~ /hoge\((.*?)\)/) && ($str =~ /foo\((.*?)\)/)){
$str =~ /hoge\((.*?)\)/;
$hoge=$1;
$str =~ /foo\((.*?)\)/;
$foo=$1;
}
これをもっと綺麗に書くことってできませんか？できたら教えてください。
hogeとfooの位置が前後する事があるのでこういう書き方にしました。
・やりたいこと
文中のhoge(あいうえお)とfoo(かきくけこ)から
$hoge="あいうえお"; $foo="かきくけこ";という変数を生成したい。
501:デフォルトの名無しさん
09/04/06 20:56:00
中のブロックだけでいいのでは（１行目要らないのでは）
502:デフォルトの名無しさん
09/04/06 21:18:19
>>500
例えばこんな感じ？
@pair = $str =~ /((?:hoge\([^)]*)|(?:huga\([^)]*))/g;
foreach my $pair(@pairs){
my($name, $value) = $split '\(', $pair;
$name = 'hoge' ? $hoge = $value
: $name = 'huga' ? $huga = $value
: 1
;
}
503:デフォルトの名無しさん
09/04/06 21:22:23
×$name =
○$name eq
確かに>>501の通り
504:un001.ecc.u-tokyo.ac.jp
09/04/06 21:48:05
ハッシュを使うのが手っ取り早いと思う。$foo, $hoge を残したいなら
my $foo, $hoge;
my %refhash = ( foo => \$foo, hoge => \$hoge );
...行ごとのループとか
if (/(hoge|foo)\((.*?)\).*(hoge|foo)\((.*?)\)/) {
$r1 = $refhash{$1};
$$r1 = $2;
$r2 = $refhash{$3};
$$r2 = $4;
... $foo, $hogeを使った処理
}
505:デフォルトの名無しさん
09/04/06 22:39:27
ハッシュの例
my %hash = $str =~ /(hoge|foo)\((.*?)\)/g ;
my $hoge = $hash{hoge} ;
my $foo = $hash{foo} ;
>１行目要らないのでは
の例
my ($hoge) = $str =~ /hoge\((.*?)\)/ ;
my ($foo )= $str =~ /foo\((.*?)\)/ ;
506:デフォルトの名無しさん
09/04/06 22:54:29
変態の例
my $hoge ;
my $foo ;
1 while $str =~ /(hoge|foo)\((.*?)\)(?{ ($1 eq 'hoge' ? $hoge : $foo )= $2 })/g ;
507:デフォルトの名無しさん
09/04/06 23:40:54
Singletonパターンってこれでいい？
package Foo;
my $singleton;
sub new {
my $class = shift;
return $singleton if $singleton;
return $singleton = bless {}, ref $class || $class;
}
1;
508:500
09/04/06 23:52:45
# 最初はこうだったんですが
if(($str =~ /hoge\((.*?)\).*foo\((.*?)\)/)){
$hoge=$1;
$foo=$2;
}
# 位置関係が前後した場合に対応できない事が分かったので書き直して以下に
if(($str =~ /hoge\((.*?)\)/) && ($str =~ /foo\((.*?)\)/)){
$str =~ /hoge\((.*?)\)/;
$hoge=$1;
$str =~ /foo\((.*?)\)/;
$foo=$1;
}
これを前者と比べるとゴテゴテしてしまったなというところでした。
＞1行目のif文
万が一hogeが含まれfooが含まれていないという場合
if文が無いとhogeの値がfooの値にも入ってしまい、それはマズいので入れてます。
ワンライナーな方のコードも読んでみました。$hoge = ($1 eq 'hoge' ? true : false)みたいな用法は知っていましたが、
この方法を右辺にも使えるんですね。自分には新しいです。(?{})というのは知りませんでした。
見た感じ正規表現の中で処理を実行する際に使うんでしょうが調べてみてもうまくヒットさせられませんでした。
もうちょっと知りたいのでキーワードとかあれば教えてください。
$hoge = ($str =~ 正規表現)での代入方法。これ知りませんでした。
あと右辺がリストで左辺もリストだと配列、右辺がリストで左辺がハッシュだと
キー、値、キー、値というハッシュになるというのも便利ですね。
この用法自体は知っていましたが、実際こういう使い方ができるんだなあと。
>>505さんのコードがわかりやすかったのでこれ使っていこうと思います。
>>501,502,503,504,505,506さんレスどうもありがとうございました。色々勉強になりました。
509:デフォルトの名無しさん
09/04/07 00:08:26
URLﾘﾝｸ(perldoc.jp)
A bit of magic: executing Perl code in a regular expression
の項だけど、、、
>この機能は実験的であると考えられており、予告なしに 変更されるかもしれないことを
>警告しておきます。
なので勉強する必要は無いと思うよ…
510:デフォルトの名無しさん
09/04/07 00:24:03
実験的とはいいつつ5.6.0のころからずっとある機能だから勉強しといてもいいだろ
とはいえそう使うことのあるものとも思えんが
511:デフォルトの名無しさん
09/04/07 00:33:22
>>507
>ref $class
これ真になる事無いだろ。
インスタンスメソッドとしても機能させたいんだったら
もう一工夫必要じゃね？
512:デフォルトの名無しさん
09/04/07 00:38:31
あー、そっか。インスタンスからnew呼んだら return $singleton if $singleton; で抜けるんだな
クラスからでもインスタンスからでも同じもの返して欲しいからそこだけ削除して
sub new {
my $class = shift;
return $singleton if $singleton;
return $singleton = bless {}, $class;
}
こうするだけでいいのか？
513:デフォルトの名無しさん
09/04/07 00:55:28
ああ、一工夫もへったくれもなかったねw
スマン。
514:デフォルトの名無しさん
09/04/07 20:49:43
>>506
ど変態の例
sub hoge { $hoge = shift }
sub foo { $foo = shift }
$str =~ s/((?:hoge|foo)\(.*?\))/$1/eeg;
515:デフォルトの名無しさん
09/04/07 21:03:43
Perlのコードを配布する際ってCPANからインストールして
使用したモジュールってどのように付属すれば良いのでしょうか？
それともReadmeなどにCPANからこのモジュールをインストールしてくださいと
書いておくのでしょうか
516:デフォルトの名無しさん
09/04/07 22:15:26
それとも
517:デフォルトの名無しさん
09/04/07 22:18:40
>>515
CPAN モジュールやその他のよく知られたライブラリ類は、特に事情がなければユーザに揃えてもらった方がよいでしょう。
ユーザ環境のモジュール配布元へのアクセスが制限されていたり、配布スクリプトがモジュールの特定のバージョンに依存するなどの事情がある場合は、その旨明記した上で各モジュールのライセンスが許せば同梱することもできます。
インストールスクリプト中で依存モジュールを CPAN からインストールさせることもできますが、大抵の単体配布では単に依存関係(必要なモジュールのリスト)を(できれば POD に)明記しておくだけで充分です。