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

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
300:デフォルトの名無しさん 05/11/08 11:21:15 >>298 #!/usr/bin/perl chomp($input = <STDIN>); open XXX, "<xxx.txt"; $/="end\n"; while(<XXX>) { if(/^($input)/){ print $_; } } 適当に作ったから動かないかもしれん。 301:298 05/11/08 11:46:59 >>299 動きました。ありがとうございます。 >>300 ^ を消すと動きました。ありがとうございます。 302:デフォルトの名無しさん 05/11/19 12:00:41 PERL 303:デフォルトの名無しさん 05/11/19 23:20:48 とあるperlプログラムの中に PHPでいう <?php require("sample.txt"); ?> と同じ効果を付けたいのですが どんなスクリプトにすればよいのでしょうか 304:デフォルトの名無しさん 05/11/19 23:35:29 require 'sample.txt'; 305:デフォルトの名無しさん 05/11/20 00:00:39 >>304 それはやりたい事と違うかも。 PHPでは<? ?>内じゃ無い部分はそのまま出力 use IO::File; my $fh = new IO::File 'sample.txt'; while (<$fh>) { print $_ } undef $fh; やりたい事はどっちだろね …複合型だと言うならスクリプト部分を判別出来るようにして置いて、マッチングしてevalに放り込む s/<\?perl(.*?)\?>/$1/ge 例えばこんな感じで

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4359日前に更新/217 KB
担当:undef