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

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
400:デフォルトの名無しさん 06/01/13 16:44:17 >>399 1〜6を満たす自由な機能のプログラムを作るって課題なんですが… 401:デフォルトの名無しさん 06/01/13 16:47:08 ああそういう意味か %KADAI3＜INDATE＞OUTDATE まだこれの意味が分からんが 402:デフォルトの名無しさん 06/01/13 16:56:45 >>401 Terminalで入力したらってことだからあまり関係ないです。ごめんなさい。 403:デフォルトの名無しさん 06/01/13 17:28:01 それDATEじゃなくてDATAだろ 404:デフォルトの名無しさん 06/01/13 17:37:44 >>403 そうです。ほんとごめんなさい。 405:デフォルトの名無しさん 06/01/13 21:34:26 結局>>397でFAだな 406:デフォルトの名無しさん 06/01/14 07:43:38 そんなぁ・・・ 407:デフォルトの名無しさん 06/01/14 09:42:00 #!/usr/bin/perl use LWP::Simple; $url = 'http://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); } }

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

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