Perlコーディング初心 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
162:nobodyさん 07/09/28 21:25:32 >>140 「Perlはあなたが自分の首を締めるのに十分なロープを 提供しているのだ」てな忠告がラクダ本に載ってたな。 #--- Filter/Range.pm --- package Filter::Range; use strict; use Filter::Simple sub { s{ my \s* \( \s* ([\$\@%][A-Z_a-z][0-9A-Z_a-z]*?) ([0-9]+) \.\. ([0-9]+) \s* \) } { 'my(' . join(',', map "$1$_", $2 .. $3) . ')' }egx; }; 1; __END__ #!/usr/local/bin/perl -w use strict; use Filter::Range; my($s1..20) = (1..20); print $s10; __END__ 163:nobodyさん 07/09/28 21:41:10 Damian Conway ぷろだくとか。 164:nobodyさん 07/09/28 22:27:42 3wKaaJqT サブルーチンを１０個くらい作ってあります。 同じディレクトリに５個くらい違うCGIファイルがあります。 ５個のCGIファイル全てに、冒頭の１０個のサブルーチンをコピペしてあります。 print routin(1,2); ５個のＣＧＩふぁいるではこういう記述でサブルーチンが使えます。 どうもこれを外部ライブラリ化とかいうのすると print パッケージ名::routin(1,2); で使えるようになるとか。 でもパッケージ名を入れるとなると５個のＣＧＩファイル全てを書き直すのが嫌です。 またパッケージ名が入って見た目がウザくなるのも嫌です。 外部ライブラリにしながらも、メインパッケージにあるのと同じごとくサブルーチンを使うにはどうすればいいでしょうか？ メインパッケージに初めに全部もらえばいけるんじゃないかとか妄想していますが。
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4917日前に更新/271 KB
担当:undef