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

perl書きなんだがさ、こうリクに答えてなんか作りたいんだ。
だからリクエストをくれ。

>>1を抹殺してくれるスクリプト

>>2
そうカリカリすんなよ。
なんか嫌な事でもあったのか？

実行EXEファイルを解析するツール作ってください
リソース抽出とか

jcode.pl(or jcode.pm)&cgi-lib.plを使用しているのですが、
日本語以外（中国語とか）で書き込みされるとログファイルが壊れて
しまいます。
具体的にはnull文字とかで、すべての文字が化けて見えるようになる。

プログラムは〜
require './cgi-lib.pl';
&ReadParse(*form);
$value = $form{"namae"};
require './jcode.pl';
&jcode'convert($value, "sjis", "", "z");

open LOG_SAVE,">>$logfile_name";
print LOG_SAVE $value."\n";
close LOG_SAVE;

として、抽出＆エンコードしてるのですが、どのようにすればよいでしょう？

↓参考として、このへんの文字を適当にこぴぺして確認しています。
http://www.fenglin.info/www/home.php

jcodeでコード変換してもだめ？

早速クレクレ君と丸投げ厨の隔離スレとして有効に機能しだしたようだな。

壮大なプロジェクトのはじまりと汁物はいまい

>>1
Hello, world!
を標準出力に出力するスクリプトを書いて下さい

ｳﾞｧｶでも出来るﾌﾟﾛｸﾞﾗﾐﾝｸﾞ言語を作ってくだすぃ>>1

甘いな。本当のバカには1行のコードも書けんよ。
ゲームの専門学校に通ってるやつらはそうらしい。

\1\2\3\4\5\6\7\8\9

なんかもっといいネタないのーなるだけ簡単なのでさー

仕事がひまでこまってんだＹＯ

本当に暇だったら簡単じゃない物を作る

RSA暗号を10秒くらいで解くやつ頼む。
成功報酬ははずむから。

>15
ふつうに賞金もらえんじゃん

>>6
jcodeでコンバートしてます。

ある程度はいけるのですが、こういうのがだめです。
↓
74728] 主题： 重量級軟件下載大集合

>17
じゃひっかかりそうな文字置換しとけ

しとけって誰に向かっていってんのじゃあ

>17
ではひっかかりそうな文字を置換してみていただけますか？

フリーでperl2exe

Perlって何？果物？

とってもとってもともえ〜

PDFJが入ってないレンタルサーバで、
CSVファイルをPDFに整形してプリントするようなスクリプト作ってクレクレ

>>22
宝石

駄スレになってる…

>>26
最初からだと思うが。

>>27
じゃぁなんかいいネタ考えてくれよ！

必要とされてないスレなんだよ。
でなければ、自分で盛り上げろ。禿げ

ネタねえんならとりあえず使える正規表現でも教えてくれよ。

>>30
ぐぐれ禿

つーかさー
http://www.excite.co.jp/world/chinese/
とかで>>17を繁体字で訳してみるとさー

…何するつもりですか？（笑）

(・∀・)ﾁﾝﾎﾟｰ!!
↑
とりあえずこいつを殺すスクリプト考えてみ？

>>32
いや、手っ取り早く知ってる中文でググって出てきたサイトに載ってたやつなんで
あんまり気にしないでね。
というか中国は国を挙げての複製大国なので、気にしない気にしない。

それより文字化けの件、自己解決しました。m(_ _)m

>>34
自分で解決しちゃったのかよっ！！
スレの存在意義がなくなっちゃたよっ！！

だから存在意義なんて、最初からないんだって。

ここでやはり>>2ですよ。

キーボードから整数値を入力して >>1 を抹殺するプログラムを作れ。

殺人教唆で訴えてやる！
そういう風に大人が「抹殺」とか「殺す」とか簡単に言ってるから
小学生がカッターナイフですよ。

まじ本気でお願いしてます。

指定したフォルダの中のファイル名と更新時刻(年月日時分秒まで)の一覧を
ファイルに出力するスクリプト。

>>40
ファイルの情報を取得するには stat 関数
ディレクトリの一覧を得るには glob("*")

ここで質問する前に最低限 Perl の教科書を一冊くらい買っておきなさい。
厨房はオネンネのじかんです。

glob("*") じゃ dot file が拾えねーべ

お前らみたいな低脳スプリクターに使える物が書けるわけ無いだろ。

>>43
君みたいな低脳スクリプターに使える物が書けるわけ無いだろ。

opendir( DIR, "./directory name/" );
@files = readdir( DIR );
closedir( DIR );

ほれ。これでファイル一覧を配列に取得できるぞ。
あとはてきとーにやれ。

一日かかったんですか？

一生懸命作ったんだろうからそう言ってやるなよ。

久々に来たんだからそゆこといっちゃﾔ━━━━(ﾟ∀ﾟ)━━━━!!

　　　　　　　　　　　　＿−＝＝−一　　　　　　　:−−
　　　　　　　　　　　/;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;＼　ーー＿＿　￣￣///
　　　　　　　　　 ／| ::::::::/7;;;;;;;;;;;;;;;;;;;;;;;;;;;; ＼　　　　　￣一,///
　　　　　　　　／..．ヽ:::::::::::|;;;;;;;;;;;;;;;;;;;;;;;.......　.＼￣ー＿　..///
　　　　　　　/ ／　　＼:::/;;;;;;;;;;;;;;;;　 ＿,−〜ヽヾ　　　ヽ///
　　　　　　 | ./　　 　　/;;;;;;;;;;;;::＿／_______~~~~||　　　　///　　∧∧∧∧∧∧∧∧∧∧∧
　　　　　　 | |　　　 　/;;;;;;;;;;;;;;;:/M〜、------;| :|　　.///　　＜　　　　　　　　　　　　　　　　＞
　　　　　　　||　　 　/;;;;;;;;;;;;;;;:/.| |:~::　.~`-----: ::::|...///　　　＜　F u c k　s o　R e e n a！＞
　　　　　　　 `　　/;;;;;;;; ／ ;;;|| |; r"~`v;:rｖ~`;l";;;;;;..///　　　　＜　　　　　　　　　　　　　　　　＞
　　　　　　　　 ∠--"　 .;;;;;;;.||l.|ゞ``^”:i |i`~/|::::;;;;///ﾍ　　　　　∨∨∨∨∨∨∨∨∨∨∨
　　　　　　／　|＼___　　.;;;;;;;|.| ||ﾐﾐ;;|mmrl「"/iヽ///|　|
　　　　　/;;;;;;　ﾉ/ ◆＼　 ;;;;;||　|、ヾiiiiiiirﾉ/::ヾヾヽ;;;;;丶＼
　　　　/;;;;;;;;　//◆◇◆ヾ_..| f";;;;ヾ`￣~／:::ヽ"ヾ"ヽ::◆ヽ＼
　　　ﾉ.:::::::　/人ヽ◆◇◆|丶＿ヾ;;;;;`｝｛_;:::　//ヾ"ヾヽ;;;;;◇ヽ＼
　　/:::::::::::;/::::::::::＼ヽ◆◇|;;;;;;;;;;;;;;;;;;;;;;ノ~＼///◆ヾヽ()ヽ／;;;;;;;;ヽ
　　`ソ,／;;;;;;;;;;;;;;;;;/ヽヽ◆|~~~~~~~~~/| |ヽ///◇◆ヽゝノ|;;;;;;;;;;;;;:::＼
　　　γ;;;;;;;;;;;;;;;;;;/;;;;;;;;ヾヾ;||~~~~~~~/~...| |.///◆／;;;;;;;ヽ　..|　;;;;;;;;;;;;;;;;;ヽ
　　/;;;;;;;;;;;;;;;;;;;;;;;/;;;;;;;;;;;;;;;;;ヽ|~~~/~　....| ///:|／::::::::::::::::::ヾ/|;;;;;;;;;;;;;;;;;;;;;|
　/;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;|~/~　.......|///::::|　:;;;;;;;;;;;;;;;;;;;;;;;;ヾヽ;;;;;;;;;;;;;;;;;|

††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††

#!/usr/bin/perl
use IO::Socket;
$SIG{CHLD} = sub {wait()};
$main_sock= new IO::Socket::INET(LocalHost => 'localhost',
LocalPort => 9999,
Listen =>5,
Proto => 'tcp',
Reuse => 1,
);
$Dfile="index.html";
while($new_sock = $main_sock->accept()){
select($new_sock);
$ |= 1;
select(STDOUT);
$pid = fork();
die "Cannot fork: $!" unless defined ($pid);
if($pid == 0){
while(defined ($buf = <$new_sock>)){
print $buf;
if($buf eq "exit"){close $new_sock}
if($buf=~/^GET\s/){
$buf=~s/^GET\s\/(.*)\sHTTP\/1.\d/
$1/x;
$Dfile=$buf;
print "File $Dfile\n";

}
if($buf=~/^\r\n$/){
print $new_sock "HTTP/1.1 200 OK\r
Server: Apache/2.0.40 (Red Hat Linux)\r
Accept-Ranges: bytes\r
Connection: close\r
Content-Type: text/html; charset=ISO-8859-1\r
\r\n\r\n";
open(FILE,$Dfile);
while(<FILE>){
print $new_sock $_;
}
close($new_sock);
}
#else{print $new_sock "HTTP OK $buf\r\n";}
}#while <>

exit(0);
}#pid
}#while sock
close($main_sock);

　　　　　　　　　　　　　　　　　　　やっちまえーー！！
　　　　　　　　　　　　　 (⌒∧＿∧ 　　　　　　　　 ,//∧＿∧
　　　　　　　　　　　ﾊﾞｷｨ!ヽ(　・∀・)　　:（⌒ﾐ（　　//（´∀｀　）
　　　　　　　　　　　　ﾊﾞｷｨ!!ヽ　　l| |l（:;;:(　ﾄﾞｶﾞｧ!!///ヽ、　　_｀ヽｺﾞｽｯ!!
　　　　　　　　　　　('⌒;ヾ　／　'/ lｉ| ｌ!ｸﾞｼｬｧ!!＼从从//／'ﾐ_／ヽﾄﾞｺﾞｯ!!
　　　　　　　　　　　 (⌒）y'⌒;ヾ从从（⌒〜∵；）´⌒｀つ,;(´（´⌒;"'ﾎﾞｷﾎﾞｷﾎﾞｷｯ
　　　　　　　　　　　（´⌒ｰ-　　　;:#∧_；/// 彡(:::゜；｡(;;;)､⌒从;;ﾉ・`⌒）;
　　　　　　　　　(´;⌒（´⌒;;' ~ヽと;;;；。#;;､ミ,,:,,;;；ヽ/ﾉ:#｀""^ヾ⌒）);
　　　　　　　　　 ￣￣(´⌒;,(´,（ﾞﾞﾞ'゛""ﾞﾞ）ﾞ'';"(´⌒;,(´,（´⌒;）
　　　　　　　　　　　　　　　　　　　　　　　　↑>>1

　　　　　　　　　　　　　　　　　　　　　　ギャアアーー

おいおい。
おまえら荒れるなよ。
こっちはおまえらの夢を叶えてやるんだからよぉ。

なんかなーいなんかなーい？ねぇ！お母さん！！

なんてかわいそうな >>1 なんだろう……。

同情はよしてくれよ！

しかも今日は誕生日なんだよっ！

誰か祝ってくれ！！

　　|　　, ,.
　　|_∧＊;*｡
　　|ーﾟ)|／
　　|　つ
　　|　｀〜
　　|∪　 　ﾊﾋﾟﾊﾞｽ。

　　　　　　 　 　 /　 /ヽヽ__ ' ´　　　＿_＿__,, イ ヽ
　　　　　　　 　 ,'　 ,'　　｛_r'‐'',ニ二､ｰ==＝-‐'|l 、｀、
　　　　 　 　 　 ｉヽ i　/／　 '´ ￣｀ヽヽ 　 　 　 l| l　 i
　　　　　　　　,' ヽ ｌ　/　 ､>‐＝､､　 　 　 =ﾆヽ ! ｌ　 ｌ
　　　　　　　 ,' /⌒ l |　　´ /（__,!゛　　　　 　 ｀､! |　 ! 　　　　>>1さん
　　　　　　　,'　! '＾> |!　　　i｡_oｿ　　　　 , ﾆ､,　 ﾉ 丿 　　　　　糞スレ立てんな、蛆虫、氏ね
　　　　　　 ,'　 ヽ ヽ 　 　 ｀ ─　　 　 　 '⌒Ｙ, ' ／ 　　　　　　と何故言われるのか
　 　 　 　 /　　 |｀T ､　 　 　 　 　 　 j 　 　 /}´　　 　 　 ,'＾! よーく考えましょうね。
　　　　　/　　　ｌ　ｌ ｉ iヽ　　　　 i｀ ｰｧ　　　/ノ　　　　　 / /
　 　 　 /　　　 |　| i ｉ ! ＼　　　l_／　 　 ノ | 　 ｛ヽ　　/ /
　　 　 ,'　　　 ｜ | i iﾉ　　 丶､ __　 ,　イ |　|　　 l　｝ 〃 二ヽ
　　　 ,'　　　　r|　| '´＼_　　/　,'　,′　 ｜ | 　 ｜└'{_/ ,─｀、

↑全然分かりません消えてください

>>55
祝ってられません
↓これでｶﾞﾏﾝ(・∀・)しる！

　　　　＼おーだんごーまーるまるー　　　　　　　　　　　　　　／
　 　　　　＼　　　　おーだんごーまーるまるー　　　　　　　／
　　 .　　　　＼　　　　　　　　 おーだんごーまーるまるー／
　　　　　　　　　 ∧＿∧　　∧＿∧ 　 ∧＿∧
　　　　　　　　　 (・∀・　)　 (　・∀・)　 (　・∀・)
　　　　　　　　　⊂　　⊂) 　(　　　　) 　(つ 　 つ
　　　　　　　　　 (＿_(＿) 　(_＿）＿) 　(＿_(＿)

ページにアクセスすると、警視庁へＩＰを送付するスクリプトをクレ！

>>55
おまえと同じ誕生日だ。縁起悪い。

>>57のAAってなに？プリキュアとかいうやつ？

>>61
なんだとぉ！？
おまえもシックスナインかぁ？
勝手に俺と同じ日に生まれてんじゃねぇこの天才野郎！

マジで哀れな >>1 だ……。削除依頼を出して、死なせてあげたほうが
いいのではないか。

// $shell dat2chregex.exe 1086143976.dat
// csc dat2chregex.cs
//2ch dat から リンクを抜き出すプログラム
//C♯の正規表現むずい。もっとなんとかならん？>>1
using System;
using System.Text.RegularExpressions;
using System.IO;
class Grep {
static void Main(string[] args) {
TextReader reader = null;
reader = new StreamReader(
args[0], System.Text.Encoding.GetEncoding(932));
if (reader != null) {
Regex regex = new Regex("ttp");
Regex fase4 = new Regex(@"<br>");
Regex fase3 = new Regex(@"(?<TTP>h?t?tp://[^\s]*)\s*");
string line;
string [] sta;
int i;
while ((line = reader.ReadLine()) != null) {
sta = fase4.Split(line);
for(i=0;i<=sta.Length-1;i++){
Match m=fase3.Match(sta[i]);
if (m.Success) {
Console.WriteLine(fase3.Match(sta[i]).Result("${TTP}"));
}} }
reader.Close();
}
}
}

同情するならネタをくれ！

まずおまいがなんか面白いネタ提供しろよ。

ＯＫ。んじゃお題だすわ。

布団が

#!/usr/bin/perl
use Digest::MD5;
$file=$ARGV[0];

open(FILE, $file) or die "Can't open '$file': $!";
binmode(FILE); $md5 = Digest::MD5->new;
while (<FILE>) {
$md5->add($_);
}
close(FILE);
print $md5->hexdigest, " $file\n";

$aiueo="あいうえおかきくけこ";
$kaiueo="アイウエオカキクケコ";
$hkaiueo="ｱｲｳｴｵｶｷｸｹｺ";

#SHIFT-JIS
#82a082a282a482a682a882a982ab82ad82af82b1
#83418343834583478349834a834c834e83508352

#EUC-JP
#a4a2a4a4a4a6a4a8a4aaa4aba4ada4afa4b1a4b30a
#a5a2a5a4a5a6a5a8a5aaa5aba5ada5afa5b1a5b30a
#8eb18eb28eb38eb48eb58eb68eb78eb88eb98eba
#野口英世cceeb8fdb1d1c0a4
#石原新太郎c0d0b8b6bfb7c2c0cfba
#聖徳太子c0bbc6c1c2c0bbd2
#織田信長bfa5c5c4bfaec4b9
#豊臣秀吉cbadbfc3bda8b5c8
#徳川家康c6c1c0eeb2c8b9af
#吉田兼好b5c8c5c4b7f3b9a5
#紫式部bbe7bcb0c9f4
#光源氏b8f7b8bbbbe1

なんでだれも「ふっとんだ」の一言が言えないんだよ…

package DUMPVAR;
sub dumpvar{
my($packageName) = @_;
local(*alias);
*stash = *{"${packageName}::"};
$,= " ";

while(($varName,$globValue)=each %stash){
print "$varName ================== \n";
*alias = $globValue;
if(defined ($alias)){
print "\t \$$varName $alias \n";
}
if (defined (@alias)){
print "\t \@$varName @alias \n";
}
if(defined (%alias)){
print "\t \%$varName",%alias," \n";
}
}
}
1;

「さ」…さむそんティーチャア

「ア」

2ちゃんねるに高速で書き込むスクリプトン書いてよ。

>>74
そんなのはますぞいさんにたのめよ

>>1は死んだのか・・成仏しろよ。

　　　　　　 　 　>>1 ＿＿　　　　　　　　　　　　　　　　＿
　　　　　　　／　＿＿＿＿ヽ　　　　　　 　 　　／ ￣　　￣ ＼
　　　　　　　|　 | /, −､, -､ｌ　　　　　　 　 　 /､　　　　　　 　　 ヽ
　　　　　　　| _|　-|　 ･|<　||　　　　　　 　 　 |･ |―-､　　　　　　 |
　　 , ―-､　(6　 ＿ｰ っ-´､}　　　　　　 　 ｑ -´　二 ヽ　　　　　 |
　　 |　-⊂)　＼ ヽ_ ￣￣ﾉﾉ　　　　　　 　　 ﾉ＿　ー　 |　　　　　|
　 　 |￣￣|／ （_ ∧￣ / ､　＼　　　　　　　 ＼.￣｀　 |　 　 　　/
　 　 ヽ　　｀　,.|　 　　￣　　|　　|　　　　　　 　　O＝＝＝＝＝ |
　 　 　 ｀− ´ |　　　　　　　| ＿|　　　　　　　　/　　　　　　 　　 |
　　　　　　 　　|　　　　　　 （t 　）　　　　　　　/　 　 /　　　　　　|

perl書きなんだがさ、こうリクに答えてなんか作りたいんだ。

きょーもいい天気だにゃー

ところで、Perl5って標準でRS-232Cを操作できるモジュールあったけ?

あるある

perl環境(ActivePerl等)がなくてもスクリプトを使えるように
***.plをWindows上で動作する***.exeを作ってください。

perl2exeみたいなのを作っておくれ、シェアいらね

>>81
C・C++が書けない
厨房がよく欲しがるツールだよなぁ

>>82
作れねーんなら黙ってろハゲ！

スキンヘッドですが何か？

ttp://x1.shinobi.jp/iga/login.cgi?id=0000005&passwd=008hYIH
上記「アクセス解析」の左上「生ログ」をExcelで使用できるデータに
変換したいのです。以下のような形式です。
「項目1」「\s」「値」「,」「項目2」「\s」「値」「,」...「項目14」「\s」「値」「改行」

１件当たりの総項目数は14件と決まっているのですが、
各件で吐き出される項目はマチマチで項目自体が無い場合があります。
項目をあらかじめ設定しておき、正規検索で改行などを取り除きつつ、
検索がマッチした場合には項目ごとに値を入れ、項目の値が項目自体が
無い場合にも - などを入れるようにして総項目数が揃ったデータにしたい
ということです。どのようにすればできるでしょうか？
よろしくお願いします。

各項目は具体的に以下のものです。

2004/06/17 18:11:30 ・（注：日付時刻です）
ページ　　　　　　　　　（注：解析対象ページのこと）
ページ回数
サイト回数
前回
初回
モニタ
JavaScript
Cookie
HTTP_REFERER
HTTP_USER_AGENT
国/言語
REMOTE_HOST
Proxy情報

これに対して生データの例は

2004/06/17 18:11:30 ・
ページpxpxpx
ページ回数39 サイト回数39 前回2004/06/16 23:27:02 初回2004/06/16 0:59:36
モニタ1024 x 768 x 16bit JavaScriptTrue CookieTrue [extract]
HTTP_REFERERブックマーク
HTTP_USER_AGENTMozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) Opera 7.23 [ja]
国/言語日本語
REMOTE_HOSTfllllp000.xxx.xxx.ad.jp
Proxy情報△
2004/06/17 18:09:02 ・
ページ冬05
ページ回数5 サイト回数5 前回2004/06/17 10:36:47 初回2004/06/16 15:26:20
モニタ1024 x 768 x 32bit JavaScriptTrue CookieTrue [extract]
HTTP_REFERERブックマーク
HTTP_USER_AGENTMozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; (R1 1.5); .NET CLR 1.0.3705; .NET CLR 1.1.4322)
国/言語日本語
REMOTE_HOSTnthkid000000.xxx.xxx.ftth.ppp.xxxx.ne.jp
2004/06/17 13:53:07 ・
ページ秋03
ページ回数12 サイト回数12 前回2004/06/17 13:01:33 初回2004/06/16 14:47:05
モニタ1024 x 768 x 32bit JavaScriptTrue CookieTrue [extract]
HTTP_REFERERブックマーク
HTTP_USER_AGENTMozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; (R1 1.5); .NET CLR 1.0.3705; .NET CLR 1.1.4322)
国/言語日本語
REMOTE_HOSTnthkid011111.xxx.nt.ftth.ppp.xxxxx.ne.jp

一応、各項目の検索置換は以下のようにしてみましたが、
あらかじめ項目を決めたものに入れていくことまでができません・・・

s/(^20)(.+)(・)(\n)/時間 $1$2$3,/g;
s/(ページ)([0-9]+)(\s\s\s\s)/\1 \2,/g;
s/(ページ回数)([0-9]+)(\s\s\s\s)/\1 \2,/g;
s/(サイト回数)([0-9]+)(\s\s\s\s)/\1 \2,/g;
s/(前回)(.+)(\s\s\s\s)/\1 \2,/g;
s/(初回)(.+)\n/\1\2,/g;
s/(モニタ)(.+)(bit)/\1 \2\3/g;
s/(JavaScript)(.+)(\s\s\s\s)/\1 \2,/g;
s/(Cookie)(.+)\n/\1 \2,/g;
s/(HTTP_REFERER)(.+)\n/\1 \2,/g;
s/(HTTP_USER_AGENT)(.+)\n/\1 \2,/g;
s/(国\/言語)(.+)\n/\1 \2,/g;
s/(REMOTE_HOST)(.+)\n/\1 \2,/g;
s/(Proxy情報)(.+)\n/\1 \2,/g;

テキストエディタで正規表現の置換はできましたが、perlのスクリプトにできない・・・
11ステップで例外などに対応してみました。
エディタの方言で　$1→\1　です。

検索/置換　になってます。

1(ページ回数)(.+)(\s\s\s\s)(サイト回数)(.+)(\s\s\s\s)(前回)(.+)(\s\s\s\s)(初回)(.+)\n/\1 \2,\4 \5,\7 \8,\10 \11,
2(モニタ)(.+)(bit)(\s\s\s\s)(JavaScript)(.+)(\s\s\s\s)(Cookie)(.+)\n/\1 \2\3,\5 \6,\8 \9,
3(HTTP_REFERER)(.+)\n/\1 \2,
4(HTTP_USER_AGENT)(.+)\n/\1 \2,
5(国\/言語)(.+)\n/\1 \2,
6(REMOTE_HOST)(.+)\n/\1 \2,
7(Proxy情報)(.+)/\1 \2
8(,)(20)(.+)(\n)(ページ)(.+)(\n)(ページ回数)/\1\n時間 \2\3,\5 \6,\8
9(^20)(.+)(\n)(ページ)(.+)(\n)(ページ回数)/時間 \1\2,\4 \5,\7
10(,)(20)(.+)(\n)(ページ)(.+)(\n)(回数\s)(.+)(\s)(前回)(.+)(\s)(前ページ)(\(JavaScript無効\))(\n)(モニタ)(.+)(\n)/\n時間 \2\3,\5 \6,\8\9,\11 \12,\14 \15,\17 \18,
11(^20)(.+)(\n)(ページ)(.+)(\n)(回数\s)(.+)(\s)(前回)(.+)(\s)(前ページ)(\(JavaScript無効\))(\n)(モニタ)(.+)(\n)/時間 \1\2,\4 \5,\7\8,\10 \11,\13 \14,\16 \17,

腐臭スレ

>>90
おまえが腐臭だよ。
なんだんだおまえは。
わざわざ「腐臭スレ」と発言することによっておまえは何を得たいのか。
それを言う事によりおまえになにか利益が発生するのか？
なぁ、>>90よ。なにか会社や学校、又は家庭で嫌な事があったのか？
彼女とケンカでもしたのか？
俺なんて最近昔の女に
「あんたに前殴られたよね。訴えるから。訴えられたくなかったら慰謝料よこしな。」
とか言われたよ…。

こんな俺でも一生懸命生きてるんだ！！

生きてるんだ！！

俺が言いたいのはそれだけだ…。

>>85-89
一気にデータを変換しようとしないでワンステップおいてみな

ログ＞変数にバラして格納＞エクセル用に書き出す

googleを越えるサーチエンジンを作ってください。

さ、さがってるよぉ！！
誰かレス書いてよぉ！！

どの携帯からでも閲覧書き込み可能な掲示板を作ってください。

jcode.pmを使わずにUTF-8をSJISに変換するコードｷﾎﾞﾝﾇ

http://och.web2.poporo.net/cgi-bin/test/test.htm
↑のような
画像掲示板に自動で画像をアップロードするスクリプトをお願いします。

>>97
俺もそういうの前から欲しいと思ってた。
perlで作れるのかな？

HTTP::Request::Commonモジュールつかって作ってみたけど>>97はもういないかな

私はここにいます
うｐおねがいします

文字列 (たとえば $str = "010110")
を、一文字ずつ、配列に格納していくためのルーチン
をこのように書いたのですが↓

for( $i=0; $str; $i++) {
　$str =~ s/(.)(.*)/$2/;
　$flag[$i] = $1;
}

もっとスマートに書けないでしょうか?

>>101
substr じゃだめなの？

>>102
しばらくぶりだったのでsubstrの存在をすっかり忘れてました。
ありがとうございます

始めまして。現在CGI勉強中の者です。
今回、メン募を作りたくIDで振り分けたページを自動生成をするという機能が欲しくて
色々、本屋やサイトで調べてみたのですが、どれを勉強すればいいか？というところから分かっておりません。
具体的に言いますと、訪問者がサイトで個人情報を書きサーバーへ送信＞サーバーからIDとPASSが送られてくる＞サイトへ送られてきたIDとPASSを記入＞自動生成されたページを各自でカスタマイズ
その後そのカスタマイズで更新された物をサイトメインページにて随時公開したいのですが、出来るだけオリジナルで作りたいと思っています。どのようなことを勉強すべきか教えてください。
参考までに、理想に近いサイトがあるので
よければこちらも見てください。

http://www.muzie.co.jp/
http://www.with9.com/

初めまして、この度事情によりperl全く知らないのに
BASICやったことがあると言うだけで
datファイルからページを表示するcgiを作れと言われて
いろんなページを回って、アルゴリズムは出来たんですが
どうしてもサーバーエラーが出て動作の確認すら出来ません・・・

内容的には簡単なことだと思うのですが
data.datと言うファイルに１行ごとに，で区切られた４つのデータがあって
それを、読み込んで判断してｈｔｍｌとして出力するというものです

a1,b1,c1,d1
a2,b2,c2,d2
a3,b3,c3,d3
と言うのがずっと続いていて
ファイルを読み込んで配列に入れて、先頭から４個づつデータを取りだして
a,b,cにデータの種類コードが入っていてdに内容が入っているので
if文で判断して表示してデータが無くなったら終わればいいようなのですが

おそらくファイルのオープンとロックで引っかかってると思うので
同一ディレクトリにあるファイルをオープンして内容を読み込み
クローズして終了するような例を教えてもらえないでしょうか？

見て回ったページにある例を入れてみてもcgiエラーが出てしまったので
よろしくお願いします・・・

あと、できればプログラムが何処まで進んだのか調べる方法が有れば
教えてくださいm(_ _)m

>あと、できればプログラムが何処まで進んだのか調べる方法が有れば
>教えてくださいm(_ _)m

…え？

>>106
BASICでいえばストップ命令みたいなもので
ここまで来たら命令を止める
もしくは、ここまでは異常なくプログラムが走ったと言うことを
確認できるような方法といういみです

言葉足らずですいませんでした

あと、なんとかdatから配列に読み込めたんですが
，で区切って読み込んでくれるものかと思ってたら
１行纏めて読み込んでしまってそこではまってます・・・
とりあえず、最初の質問については自己解決しましたので
また詰まったときによろしくお願いしますm(_ _)m

>>107
途中でprintでもしとけよ。
まったく、なんでこんな奴にまかせるかなぁ...

>>108
BASICやったことがあるってのもハッタリだったということで。
小学生の漏れでもそれくらい気がついてたぞ。20年前だがな！(遠い目)
区切りで分けるときは split使え！それとperlの資料くらいは参照しとけ！！
http://www.orange.ne.jp/~kibita/n88/

Windowsの山ほどあるダイアログを簡単に使えるモジュールを作ってください。
Win32::API使おうとすると、最初は入ってなかったり構造体定義したり、なんかいろいろいろいｒぉ面倒です。

perl で一定時間ごとの時刻の表示が出来るプログラムを作っています。

例えば現在時刻が 21::00 だとすると
次に表示されるのが　30分後の　21:30って具合に…

なるべくなら自分で作りたいのでアドバイスとかあったら教えてください。
すれ違いですみませんが

>>111
現在時刻の分で場合分けすればいいと思う。

[1]を[2]にするようなスクリプトを作りたいのですがアドバイスお願いします

[1]
中 央１丁目591 281 310 218 ２丁目602 315 287 227
２丁目522 256 266 179 大字南篠崎1130 559 571 352
本 町831 396 435 301 花 崎１丁目1459 749 710 604

[2]
中央１丁目,591,281,310,218,２丁目,602,315,287,227
２丁目,522,256,266,179,大字南篠崎,1130,559,571,352
本町,831,396,435,301,花崎１丁目,1459,749,710,604

>>113
s/(\D)(\d)/$1 $2/g;
s/ /,/g;
s/(\D),(\D)/$1$2/g;
とかどうかな。駄目ですか。そうですか。

>>114
ありがとうございます。
解決できそうです。

>>115
おいコラ！
他スレで解決済みじゃないのかよ
これだからマルチ質問はやめれってことなんだよ

http://pc5.2ch.net/test/read.cgi/software/1095411685/
の37なのですが、ここに転載するのはﾏﾙﾁになりそうで怖いのですが
本家はこちらな気がしましたので書き込ませて下さい。
(刷れ汚しになりそうなので本文は書きません)

参照して作成して下さる

P　e　r　l　の　神　
とゆう猛者の光臨を待ち焦がれてしまいます。

住人の願い叶えてたもう。お願いします
　　　　ヾ
　(´Д｀;)、　　ｺﾉﾄｵﾘﾃﾞｽ
　　 ノノＺ乙

神など存在しない

よし、俺もリクに答えて作ってやるage!
但し、CGI限定な

プログラム技術＠2ch掲示板

中略

プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。
ウイルス、ハッキング・クラッキングを求めるような発言は禁止です。
Javascript は Web 制作板、CGI は Web プログラミング板へ。
　　　　　　　　　　　　　　　　　　~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

>>120
ウェブＰ板にこんなスレをわざわざ立てるのかと（ｒｙ

Perl::Tk用のGUIエディタ作ってください。

なんか厭味な摺れだな

>>117
それくらいすぐ作れるべ

>>124
>>118へのレスだったら面白かったな。

返信遅れてしまってごめんなさいです。神などいないで
やる気あぼーん。諦めモード入ってました。

>124様
本当ですか。神!!光臨して下さったら末代まで
称えます。

近代WindowsGUIの提供する
素晴らしき(手作業がでふぉの石器時代みたい)
なエクスペリエンスに疲れますた。

システマチックに自動化された環境！!
それは未知のエクスペリエンス。

未知のエクスペリエンスしたいです。
きっとソフト板の多くのユーザーが未経験な
エクスペリエンス。対話しないとなんにも
出来ない、OPいないと動かないPC環境脱却したい
し、使った人も驚くと思います。

なので是非作成して欲しいです。
ネタじゃなくて期待してしまいます。

これがネタじゃないならなんだというのだ。

ネタじゃないなら神!!

ネタならまぁ、あれだ、その。。。。。
うぇーん。

二点を結ぶ半径rの円弧で、始点から終点までの移動をiX,iY
廻り方をccwだとした時、始点から見た円弧の中心x0,y0を求める。
ただし、ccwは、時計回りが-1、反時計回りが+1
半径rがプラス値のとき近回り、マイナスのとき遠回りの円弧で、
円弧が丁度半円の時は正負どちらでもよい。

って、いうスクリプトをperl5.004対応で、お願いします。m(_ _)m

sub quest_arc_center($$$$){
my($iX,$iY,$r,$ccw) =@_;
my($x0,$y0);
# ここをプリーズ
return ($x0,$y0);
}

ex)
my($iX,$iY,$r,$ccw) =(5,5,5,-1);
my($x0,$y0) =quest_arc_center($iX,$iY,$r,$ccw);
print "x$x0, y$y0\n";
=> x5.000, y0.000

以下に私が作った情けないスクリプトを晒します。(⌒〜⌒ι)
皆様のお知恵を拝借して、洗練されたスクリプトに変えたいと思います。

use strict;
# my($x0,$y0) =quest_arc_center($iX,$iY,$r,$ccw);
sub quest_arc_center($$$$){
my($iX,$iY,$r,$ccw) =@_;
die '半径0' unless( $r+0 );
my$R =abs($r);
my$Dia = 2*$R;
my$Line = sqrt( $iX**2 + $iY**2 );
die '半径が小さい' if( $Dia < $Line );
my$PI =abs(atan2(0,-1));
my($Xhf,$Yhf) =($iX/2,$iY/2);
my($I,$i,$J,$j);

つづきです。

unless( $iY+0 ){
($I,$J) =( $Xhf, sqrt( $R**2 - $Xhf**2 ) );
($i,$j) =( $I, -$J );
}else{
my$XvY = $iX / $iY ;
my$ey = - $Yhf - $XvY*$Xhf;
my$ev = 2*( $XvY**2 + 1 );
my$ex = 2*$XvY*$ey;
my$er = $ey**2 - $R**2;
my$es = 0;
$es = sqrt( $ex**2 - 2*$ev*$er ) if( abs($Dia-$Line) > 0.002 );# 180°以外
$I = ( -$ex + $es )/ $ev ;
$i = ( -$ex - $es )/ $ev ;
$J = $Yhf + $XvY*$Xhf - $XvY*$I ;
$j = $Yhf + $XvY*$Xhf - $XvY*$i ;
}
my$rad =atan2($iY-$J,$iX-$I) - atan2(-$J,-$I);
if($rad<0){ $rad = $rad - $PI }
else{ $rad = $PI - $rad }
($I,$J) =($i,$j) if( $r*$rad*$ccw < 0 );
for($I,$J){ $_ =sprintf("%.3f",$_) };
return( $I, $J );
}

>>91
>「あんたに前殴られたよね。訴えるから。訴えられたくなかったら慰謝料よこしな。」

よく考えたら、どの道お金払うことになってしまい
脅しにはなっていないような・・・

>「あんたに前殴られたよね。訴えるから。訴えられたくなかったら慰謝料よこしな。」
最近はカス見たいな女もいるんだな
言葉は悪い、腹も黒い
特にあいつらの負けん気満々の目が嫌だ
自分以外は「キモイ」で即斬
「誰にも迷惑かけていない」などの
自分正当化議論（屁理屈）をいっぱい持っており
危なくなるとそれを持ち出してくる

perl関連で、目的のスレはこちらと思いカキコしたわけですが、
なにぶん、過疎のような気がいたしまして別スレに誘導のつもりで、
カキコしたものにレスがついてしまいました。
私が「レスはこちらで」と書き加えなった為です。

今後は↓に移ります。ごめんなさい。

Perlについての質問箱 14箱目
http://pc5.2ch.net/test/read.cgi/tech/1101649274/l50

結果、マルチになってしまったことをお詫びします。
すいませんでした。

よし、久々に来たが何を作ればいいんだ！

Webページを定期的に監視して更新状況を調べるスクリプトかいとくれや。

Perlのデータが来たら、そのままPerlで読めるコードの文字列を吐き出してくれるのを頼む。

スレ主はやる気あんのか？

>>1
ブラウザ作ってくれ

ネットからダウンロードしたものを自動的に記録するスクリプト作ってください。

>>140が裸踊りしながら都内5kmマラソンしたら考えんこともないこともない
ま、皇居一週かな。

画像投稿できる掲示板つくってちょ

スレ主の脂肪のため終了しました

糸冬　￣了

sage放置

■こんなCGI作ってください■
http://pc5.2ch.net/test/read.cgi/php/1102980903/

パラメータをアドレス打って直接渡したら
動かないようにするにはどうしたらいいでつか？

>>146
パラメータをアドレス打って直接渡したら
動かないようにするといいです。

以下のやり方を教えてください。
１、1月1日が土曜日の平年について、曜日の入力データからその月日
をすべて表示する。
２、2つのファイル｛英文と日本訳｝を読み込み、行数を数えながら、
表示し、新しいファイルを作成する。
マジわからなくて困ってます！よろしくお願いします！

>>148
こういうバカが絶対に業界に来ないようにする方法って
ないものだろうか。

そんな事言わないでくださいよ！業界入りはしないから！

マルチ士ね

あるデータを箇条書きに変換するスクリプト作ってくらはいよ。

s/データ/箇条書き/g;

１．abc
1.1 def
1.2 gh

2．kkk
2.1 jj
2.2 aa


↑
こんな感じに変換したいんだけど 。

>>154
すればいいじゃない。

ずっと考えてるんだけど、もうどうやって作ればいいのか分からない。
アプローチの仕方が分からないので、せめてどんなコマンド使えばできる、っていうの
だけでも教えてください。
行数表示はcat -n ファイル名だっていうのは分かってるんだけど、
それだと、１は１のグループで番号表示っていうのができないんです。

まさにネットの愚劣に底は無し!!

あるデータって言われてもな。
元のフォーマットも知らずに変換が出来るか、ボケ。

>>158
あ〜あ。自分がまだ質問をしていないことに>>154氏が
自分で気づくチャンスを奪い取って、ひどいやつ!

htmlソースから余分な部分を削除するように

#!/usr/bin/perl

while (<STDIN>) {
s/<a href=.*<dl><dt>// ;
print;
}

というスクリプトを書きました。
<a href=から始まって<dl><dt>で終わる部分までを削除するつもりでしたが
うまく動作してくれません。何か間違ってますか？
他に何かいいスクリプトがあったら教えて下さい。よろしくお願いします。

正規表現は最大一致

<ol>
<li>abc
<li>def
<li>gh
<ol>
<li>kkk
<li>jj
<li>aa
</ol>
</ol>

こういうデータを>>154のように見出しをつけて変換したいんです。
どのコマンド使えばいいですか

>>162
lynx

>>162
それは >>154 にならない
1.abc
2.def
3.gh
3.1kkk
3.2jj
3.3aa
だろ？

>>164
あ、すみません、間違えてました。
>>162だと>>164になりますね。

その3の中にある、3.1とか3.2というのは、catの中にまたcatですか？

……以後放置することを提議したい。

>>164
> >>162
> それは >>154 にならない

はあ? 何を何にするかなんて、自由だろ。

>>154
データの形式がそれで正しいならこんな感じでいけないかな？

while ( <> ) {
　　if ( /<ol>/ ) {
　　　　$num1++;
　　　　undef($num2);
　　　　next;
　　}
　　if ( /<li>(.+)/ ) {
　　　　$val = $1;
　　　　unless ( $num2 ) {
　　　　　　print $num.". ".$val;
　　　　　　$num2++;
　　　　} else {
　　　　　　print "\t".$num1.".".$num2.". ".$val;
　　　　　　$num2++;
　　　　}
　　}
}

ちなみに、動作確認してないので。動くかどうか知らんがｗ

>>166 ｽﾏｿ m(_ _)m

>>161さん
ありがとうございます。「最大一致」ということで確認して改行も一致させるということで
以下のように書き換えました。他にもいろいろ試行錯誤すること8時間・・・
お願いします。htmlソースから余分な部分を削除するスクリプトを教えて下さい。
僕にはもう限界です・・・

#!/usr/bin/perl

while (<STDIN>) {
s/<a href=.*<dl><dt>//s ;
print;
}

>>169
「余分な部分」だってさ(ゲラゲラ)

何をどうしたいのか分からんｗ

並列処理(分散処理)をperlで作りたいのですが、教えてくれませんか？
お願いします。

並列処理と分散処理は違うじゃないか？

並列ならthread/pthread
分散ならrpc,soap,corbaかな

とにかく其の知識がないとperlでやろうとするなんて無理だべ

なんでperlでやりたくなるのかがわからんｗ

>>174
ちょっとした遊びでコードを書いたりするのは君には理解できないんだろうよ。

誰もあなたの遊びを手伝いません

ここはビジネスライクなインターネットですね。

>>169
こんな感じ？

undef $/;
open ( IN, "test.htm" ) or die "boo!";
$data = <IN>;
close( IN );
$data =~ s/<a href=.*?<dl>.*?<dt>//gs;
print $data;

スレッドを使ったちょっとしたスクリプトを作ってください

>>179
つ[perldoc thread]

URLをフォームに入れて送信するだけで、リンク先のページの<title>タイトル</title>を抽出して、
<a href="URL">タイトル</a>
という具合に自動で整形してくれるスクリプトってないですか？
モジュールは「HTML-Parser-3.36」が使えます。

>>181
Perl使え

むしろRuby使えよ
Perlみたいな糞言語は使うな。

Rubyも使えない糞が何か言っています

Rubyって何？ﾀﾞｻｯ

phpならfile()→正規表現→ゲチュー終了

ＣＧＩ作れ

>>1よ、２ちゃんブラ作れ

やだアンタ、そういう趣味ー？
今時柄付きブラなんて付けてるオンナなんて… い な い わ よ

>>189
何だこれ

ユーザー名と適当な紹介欄と所持金とpassを入力してアカウントを作成して、ユーザーは登録したアカウントにログインして所持金や登録情報を変更可能。
また、ユーザー一覧を見ることが出来、所持金や名前でソート可能。

見たいなのお願いします

暇なんで依頼があれば作れます

[無理な物]
既存CGIと違いがないもの
既存CGIの改造
大規模すぎるもの

一週間後にまとめて公開します

AGE

>>192
過去スレにいろいろあるよ。ひまつぶしに出来そうなの。

あ、過去スレじゃなくて過去レスだ。

>>192
指定した数値ぶんの長さの文字列を生成するスクリプト

&print_str_rand(9);

sub print_str_rand {
for(1..$_[0]){ printf('%c', int(rand(94)) + 32); }
}

ゆうパックの箱サイズと料金表が基本データとして用意してあるとする。
有限個の荷物のサイズ・重量と配達地域が与えられときに、送料が最小となるための荷物の詰め込み方
（どのゆうパックの箱にどの荷物をどういう向きで詰め込むのか）を求めるプログラム。

荷物をどういう向きってそのデータも基本データに入ってるの？

荷物はすべて直方体で、斜めに置くことはしないとしましょう。
この場合、荷物の向きは６通りです。

えー3通りじゃないのか・・ちょっとむずいな

直方体の辺をX, Y, Zの３種類とすると、面はXY, YZ, ZXの3種類。
底面がこの３種類のどれかになるのですが、ひとつの底面について、たて向き・よこ向きの２通り出来るので、
立体の向きとしては６種類あります。

別の考え方をすると、空間のx, y, z方向に直方体の辺X, Y, Zを対応させるとすると、
例えば「YZX」と書いたら、空間のx軸と直方体のY辺が平行で、y軸とZ辺が平行で・・・という意味にすると
結局、X, Y, Z の文字列としての並べ方と直方体の向きが対応します。３文字の順列になるので６通り。

問題自体は、数学的には「すべての組み合わせを調べつくすしか解法がない」という類いものらしいです。

類のもの「らしい」っていうのが微妙だな。

俺的には、解答として提出された詰め込み方計算プログラムよりも
その解答プログラムが「最小」の詰め込み方を正しく出力している
かどうかを検査する手法のほうが興味あるな。

「正解」を出せるかどうかは目視のコードレビューで判断するのか、
それとも機械的に適切なテストを行うのか、ほかの方法を使うのか
どうするつもりなんじゃい?

とりあえず
http://www.post.japanpost.jp/service/parcel/you_pack/index.html
参考に

たとえば、置く方向決まってる奴あるけど
この問題の場合
ああいうのは考えないという方向でいいの？

>>203
> 類のもの「らしい」っていうのが微妙だな。

数学的には「NP問題」と呼ばる種類の問題で、こういう詰め込みの問題では、
例えば「ビンパッキング問題」とか「ナップサック問題」というのがあります。
これらの有名な問題とは設定が微妙に違うんですが、本質的な難しさは同じなんじゃないかということで
「類いのものらしい」と（「の」が抜けてましたが）書きました。

半分ネタなので、そのプログラムが本当に正しいかの検査はおいといて、
まずは実際に計算するプログラムが先ということで。

>>205
> たとえば、置く方向決まってる奴あるけど

そういうのは考えなくていいことにします。
下の荷物が潰れるとか、そういうのも考えなくていいです。

age

>>192
HTML置き換え

複数のHTMLファイルに書かれているタグを置き換える
<!-- ﾞFile.txtﾞ --><!-- // --> みたいなタグの間にﾞFile.txtﾞの内容を書き込む

SSIだと負荷が高いのでﾞFile.txtﾞを変更した場合のみ更新したいのです。
すべてのページに同じヘッダーを付けたり著作権表示の年を一度に変えたりできるのでお願いします

依頼age

#動作未確認、つーかplファイルにもしてないが
require 5.8.5;
use utf8; use open ":utf8"; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8";
$pat='<!--\sﾞ(.+)ﾞ\s-->';
while(<STDIN> && !$_=~$pat) print;
!eof STDIN or die;
print;
open FILE,"<$1";
foreach(<FILE>) print;
$pat='<!--\s\/\/\s-->';
while(<STDIN> && !$_=~$pat){}
print;
foreach(<STDIN>) print;

質問なんですが教えてください。お願いします。
CGIでリンク集を作れるフリーソフトをダウンロードしたのですが
検索したときに「１件〜１０件を表示」などのような、いくら見つかった
という表示がしないものでした。どうしたら表示できるようになるのでしょうか？
初心者のため、まったくわかりません。よろしければ教えてください。

自分用にカスタマイズした2ch書き込みスクリプトが作りたいんだけど、どうしたらいいでしょうか。
ちなみにサバではなくMacOSXのTerminalでPerlを動作させるつもりです。

age2ch

>>212
POST

#!/usr/bin/perl

$_=$ENV{QUERY_STRING};
s/\+/ /g;
s/%([\da-fA-F]{2})/chr hex$1/eg;
eval;

AltavistaのBabelfishという翻訳エンジン(SOAP対応)があるのですが、そこでは英語と日本語、英語とスペイン語の相互翻訳はできます。
でも僕がしたいのは日本語とスペイン語の直接の相互変換なのです。
そこで、日本語、ないしスペイン語の文字列を入力したとき自動的に英語を経由してスペイン語、日本語に翻訳するスクリプトをお願いします。

win環境で手軽に使えるインターフェースを装備してくれると非常にありがたいです。

よろしくお願いします．

-a -b c d
-e -f g h
（以下数千万行続く）
このような数列が記録されたファイルがあります。左2列が負数、右2列が正の数です
これらの数列に関しての処理をしたいと思っています
上の例で言うところの、-aと-b、cとdをそれぞれ比較し、負数同士ならばより小さいほうを、正ならばより大きいほうを選んで、

-x y
-z w
（以下数千万行）
というような処理をしたいのです

よろしくお願いします

自己レスですが困難で大丈夫なんでしょうか？
#!/usr/bin/perl

open(IN,"filename@ARGV");
@cmd = <IN>;
close(IN);

foreach $cmd (@cmd) {

@temp = qw( @cmd );

　if ( $temp[0] <= $temp[1] ) {
　　print "$temp[0] " ;
　} else {
　　print "$temp[1] " ;
　}
　if ( $temp[2] >= $temp[3] ) {
　　print "$temp[2] " ;
　} else {
　　print "$temp[3] \n" ;
　}
}

動くならいいんじゃない?一般に、数千万行も一気にメモリに格納するのは
普通のマシンにはつらそうだし(不可能?)、遅くなるだろうが。

すいません、メディアプレーヤーのプレイリストを書き換えるプログラムを書いていただけませんか？音源を移動したのでプレイリストも修正しなくてはいけなくなりました。

<media src="..\..\レンタルCD等\Antonio Carlos Jobim - Wave\Wave.mp3" tid="{7FDC9124-2E56-428E-A92B-2F64EECAECDF}"/>
<media src="..\..\レンタルCD等\Antonio Carlos Jobim - Wave\The Reb Blouse.mp3" tid="{7957C487-E402-4ED7-B164-EF08C59BFB6A}"/>
<media src="..\..\レンタルCD等\Antonio Carlos Jobim - Wave\Look To The Sky.mp3" tid="{55D5B309-0D86-4227-85DC-A74D3499BD1F}"/>
<media src="..\..\レンタルCD等\Antonio Carlos Jobim - Wave\Batidinha.mp3" tid="{EA9F7A38-6D42-4172-925C-E1DB6A8770E9}"/>

今、プレイリストは上記のようになってるんですけどこれの　..\..\レンタルCD等　を変えて絶対パスで　G:音源　にしていただきたいんです。
プレイリストファイル（.wpl）は数百あって、日付順に全て読み込んでそれぞれ変えていってほしいんです。
どなたかお願いできますか？勝手言って申し訳ございません。

>>220
えっと、【レンタルCD等】を【違法ピーコ】に変えるんだな。
簡単だ。ちょっと待て。
あれっ・・・




ttp://www.keishicho.metro.tokyo.jp/anket/thanks2.htm

Cのソースファイルを読み込んで全ての関数を次のような書式で下記だすスクリプトを作ってください。

戻り値型 関数名(引数型);

こんな感じ。
int hoge(int, int);

すいません、ダメですか？？

>>222
perl -ne "chomp; print qq($_\n) if /^\w.*\)$" foo.c

>>222
うちで試した限りでは抽出できたがどっかまずいとこあるかもしれん

#
# test.pl infile outfile
#
open(IN,$ARGV[0]) or die("can't open $ARGV[0].\n");
open(OUT,'>'.$ARGV[1]) or die("can't open $ARGV[1].\n");
while(<IN>){
nextunless(/^\s*((\w+\s+)*[\w\*]+)\s+(\w+)\(([^\)]+)\)/); # 末尾に；つければ定義部のみ拾えるだろう
my $type = $1;
my $func = $3;
my $expr = join(' ',$4 =~ /([\w\*]+)\s+\w+[\,\s\)]/g);
$expr = 'void'if(!$expr);
print OUT "$type $func\($expr\);\n";
}
close(IN);
close(OUT);

誰か作っていただけませんか？

ディレクトリ内のファイルを日付順にソートするにはどうするんですか？

>>225
プロトタイプ宣言をしてるとだぶるよ。
あと、引数型をvoidにしないでくれよ。

すいません、質問です。
ファイルの各行を順に読み込んで例えば「Ａ」を「Ｂ」に変換していくようなのは
どう書けばいいんでしょうか？

>>220

#!/usr/bin/perl
use encoding q/shift_jis/;
use Encode;
@files = <$ARGV[0]/*.wpl>;
$dir = quotemeta qq/..\..\レンタルCD等/;
$/ = undef;
for (sort { -M $b <=> -M $a } @files) {

open(FH, "<:encoding(shift_jis)", $_) or die $!;
$content = <FH>;
$content =~ s/$dir/G:音源/g;
close FH;

open(FH2, ">:encoding(shift_jis)", $_) or die $!;
print FH2 $content;
close FH2;
}

実行時引数に.wplのあるディレクトリパスを指定汁

void要らんかったから余計な
$expr = 'void'if(!$expr);
を削る。以上。あとやる気起きん。

連投規制、バーボンに引っ掛からない２ｃｈ投稿スクリプト希望

>>225
複数行に跨る宣言が拾えないのでは。

>>227
こんな感じかな。更新日時でソートと解釈したけど $ctimeで作成日時、$atimeでアクセス日時にもできる。

$dirname = '.';
opendir(DIR,$dirname);
foreach my $f (readdir(DIR)){
next unless(-f $f);
my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = stat($f);
$file{$mtime} = $f;# 更新から経過秒数
}
closedir(DIR);
foreach $t (sort {$file{$a}<=>$file{$b}} keys %file){ #経過秒数でソート
print "$file{$t} $t\n";
}

ねー、みんなー、DirHandleとかFileHandleとかFile::statとかTime::localtimeとか使おうよー……。

>>235
TMTOWTDI

$mtime = (stat($foo))[9]

>>234
> $file{$mtime} = $f;# 更新から経過秒数

はあ?

> foreach $t (sort {$file{$a}<=>$file{$b}} keys %file){ #経過秒数でソート

はあ?

致命的なバグがあるじゃないか。

類まれなへぼコードだな。

>>236
そもそもそーゆー選択肢があること自体知らんやつが多過ぎるんだけどorz

こうかな。というかバカにするのは簡単だけど違ってたら訂正しておくれよ。

$dirname = '.';
opendir(DIR,$dirname);
foreach my $f (readdir(DIR)){
next unless(-f $f);
my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = stat($f);
$file{$mtime} = $f;
}
closedir(DIR);
foreach $t (sort {$a<=>$b} keys %file){ #経過秒数でソート
print "$file{$t} $t\n";
}

>>230
ありがとうございます！！
とても救われました。

>>241
readdir()は'.'と'..'も返すから、grep !/^(\.*)|(\.\.)$/, readdir() などで除外しとけ。
あと %file は $file{$f} = $mtime として使う方が自然じゃね?

書いてみた ＞＜
my $dir = shift || '.';
opendir my $dh, $dir or die $!;

print
map{ $_->[ 0 ]."\n" }
sort { $a->[1] <=> $b->[1] }
map { [$_, -M ] }
#<*>;
grep !m/^\.\.?$/&& -f, readdir $dh;

closedir $dh;

grep最初のマッチ不要だったような orz

>>241
> こうかな。というかバカにするのは簡単だけど違ってたら訂正しておくれよ。

おまえは出てくるな。みんなの手間が増えるだけだ。

>>246
そういう貴様も出てこなければいいだろう。
広告の裏にでも書いてろ

普通、チラシの裏だよなぁ

最近両面印刷が多くてなぁ。

ツルツルで書きにくい

消しゴムで消しにくい

hosyu

ALTボタンを押しっぱなしにするような命令はないですか？？
　
今あるボタンを押した時と同じ効果を発揮するような
ショートカットキーを実装しようとしているのですけど、
ニーモニックキーだとALTも同時に押す必要がありますよね。
だからいちいちALTを押さなくても効果を活動できるようにしたいんです。
KeyListenerを実装するという手も考えましたが，
これだとボタンを押した時の定義と同じことを書くので
二度手間だと思い，なんとか他の方法がないかと思って
いきついたのがニーモニックキーです。

ある文字列の中のあるHTMLタグをすべて見つけ出し、その中に特定の文字列が合った場合は、その文字列を消す。
というようなスクリプトを作りたくて悩んでいます。

例えば、あるファイル$fileの中から<font>タグを探し出して、みつかった<font>の中からweightに関する設定がされたものは、それを消して、$file中のすべての<font>からweightを消したいといった場合です。

いろいろやってみてるのですが、うまくいかない＞＜；

ブラウザからＭＳＮメッセンジャーを使うスクリプト

>>254
がんばって正規表現ゴリゴリ書くか、
HTML::Parserとか使って一度分解し、タグ・属性除去してから再構築。

ファイルから、特定の行だけ違うファイルに出力するプログラムを作ってください。
＜例＞
元のデータ
Ａ　５００円　６個
Ｂ　６００円　６個
Ａ　４００円　３個
Ｃ　４００円　７個
Ｂ　２００円　６個

処理した結果
Ａ　４００円　３個
Ｃ　４００円　７個

元のデータから同じ値段のものだけを出力するみたいな感じで。
ホント初心者ですいません。

>>257
(　ﾟДﾟ)ﾎﾟｶｰﾝ

>>256
HTML::*シリーズはいろいろあるな。この場合、HTML::Treeは如何か。

でもモジュール使えない鯖だと困るよね。
やっぱ正規表現で書くしか…。
セッションとかRSSも使いたいけど
俺が借りてるサーバは一切不可。
多分CGI.pmくらいは使えると思うんだが

え、そういうのは自分で無理矢理インスコするもんじゃないの?

mp3プレーヤーが1円＾＾
http://news19.2ch.net/test/read.cgi/news/1126704124/

スクリプトで全部持ってかれてしまいます
スクリプトと使い方うｐして下さい！
おながいします

行の折り返し処理をしたいのですが、思い浮かびません。

A:aaa,bbb,ccc,ddd,eee,ffff;
B:jjjj,kkkk,llll,mmmm,nnnnn,oooo,pppp,qqqq;
C:rrrr,ssss,tttttt,uu,ssss,cccc,ss;

てな具合に最初の文字列だけ「：」で区切られ、次の文字列からは
「，」で区切られます。最後の文字列には「；」が付きます。
この「，」で区切られた文字列は行により文字列数が違います。
これを下記のように10文字程度ずつ改行したいのですが、どのようにすれば
よいでしょうか？


A:aaa,bbb,ccc,ddd,eee,ffff;
B:jjjj,kkkk,llll,mmmm,nnnnn,
　oooo,pppp,qqqq;
C:rrrr,ssss,tttttt,uu,ssss,cccc,
　ss;

>263
下記のどこが10文字程度なのかが分からん。

.........1.........2.........3
123456789012345678901234567890
A:aaa,bbb,ccc,ddd,eee,ffff;
B:jjjj,kkkk,llll,mmmm,nnnnn,
　oooo,pppp,qqqq;
C:rrrr,ssss,tttttt,uu,ssss,cccc,
　ss;

>>264
多分、全角の１０文字ぐらいということだろうね。
そうすると、出力フォントの幅まで考慮するということだろうか。

リク。

昇順にソートされた正の整数が一行に一個づつ書かれたファイルを標準入力から与えると、
その数の範囲を分かりやすく標準出力に表示してくれるスクリプトキボン。

例：
入力
1
2
3
100
101
105
出力
1-3,100-101,105

>>266 俺頭悪いからこんなソースしか書けんわ。すまん。
#!/usr/bin/perl
$|=1;

$file = <STDIN>;
chomp $file;

open(FH, $file);
while (<FH>) {
chomp;
push @vals, $_;
}
close(FH);

$head = $vals[0];
$buf .= $vals[0];
shift @vals;
foreach $val (@vals) {
if($head + 1 == $val){
$buf .= '-';
$head = $val;
next;
}
if($val > $head + 1){
$buf .= $head.','.$val;
$head = $val;
next;
}
}

$buf =~ tr/-//s;
print $buf;

しかもそれマトモに動かんわ・・無視してごめん

物凄い勢いで修正

#!/usr/bin/perl
$|=1;

$file = <STDIN>;
chomp $file;

open(FH, $file);
while (<FH>) {
chomp;
push @vals, $_;
}
close(FH);

$head = $vals[0];
shift @vals;
print $head;
foreach $val (@vals) {
if($head + 1 < $val){
if($flag){ print $head; }
print ',', $val;
$flag = 0;
}
if($head + 1 == $val){
if(!$flag){ print '-'; }
$flag = 1;
}
$head = $val;
}

>>269
ありがとうございます。完璧です。

標準入力に渡すのは、ファイル名じゃなくてファイルの内容のつもり
だったんですけど、これは私の依頼の文章のほうの問題ですね。
ありがとうございました。

>>263

半角10文字で作ってみた（自信なし）

#!/usr/bin/perl
while (<>) {
while (/.{10}.*?,/) {
print "$&\n";
$_ = " $'";
}
print;
}

これが…
A:aaa,bbb,ccc,ddd,eee,ffff;
B:jjjj,kkkk,llll,mmmm,nnnnn,oooo,pppp,qqqq;
C:rrrr,ssss,tttttt,uu,ssss,cccc,ss;

こうなる
A:aaa,bbb,ccc,
ddd,eee,ffff;
B:jjjj,kkkk,
llll,mmmm,
nnnnn,oooo,
pppp,qqqq;
C:rrrr,ssss,
tttttt,uu,
ssss,cccc,
ss;

A:aaa,bbb,ccc,ddd,eee,ffff;
B:jjjj,kkkk,llll,mmmm,nnnnn,
　oooo,pppp,qqqq;
C:rrrr,ssss,tttttt,uu,ssss,cccc,
　ss;

A:aaa,bbb,ccc,
　ddd,eee,ffff;
B:jjjj,kkkk,
　llll,mmmm,
　nnnnn,oooo,
　pppp,qqqq;
C:rrrr,ssss,
　tttttt,uu,
　ssss,cccc,
　ss;

( ﾟдﾟ)ﾎﾟｶｰﾝ
10文字だよね？？

責任とれや！！！！
　　　 _, ,_ 　ﾊﾟｰﾝ
　（　‘д‘）
　　　⊂彡☆))Д´） >>1

#!/usr/bin/perl

while (<>) {
　　while (/.{22}.*?,/) {
　　　　print "$&\n";
　　　　$_ = " $'";
　　}
　　print;
}

A:aaa,bbb,ccc,ddd,eee,ffff;
B:jjjj,kkkk,llll,mmmm,nnnnn,
　oooo,pppp,qqqq;
C:rrrr,ssss,tttttt,uu,ssss,
　cccc,ss;

(;ﾟ∀ﾟ)=3ﾑｯﾊｰ

TelneTでサーバにアクセスしてユーザーとパスを入れて、コマンドを打つ
その後に別のサーバーにログインするプログラムを作って
ください。お願いいたします

telnetやTelnet、あるいはTELNETなら聞いたことがあるんだが……



TelneTか……

>>275
http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm

簡単だから自分で作れ

>>1 ：(・∀・)ﾁﾝﾎﾟｰ!!
おまい、スレたてたんだから少しぐらいやれよ！

ログインしているところまでは確認できるけど、WHOコマンド打たないんだよ

……

このスクリプトが動かないのですが何が原因ですか？
プロンプトは
Username:
password:
Router>
とういう風に変わっていきます。
Routerにログインしてwho打つとログインはしているようなのですが、
$t->cmd("ping 10.1.1.1");
のコマンドを打ってくれません。

教えてください。

#!/usr/bin/perl
use Net::Telnet;
$host='10.1.1.1';
$username='aaa';
$passwd='bbb';
$t = new Net::Telnet (Timeout => 4, Prompt => '/[a-zA-Z ]+: /', Dump_Log => 'telnet-log');
$t->open("$host");
$t->login($username, $passwd);
$t->waitfor('/[a-zA-Z]+>/');
$t->cmd("ping 10.1.1.1");
$t->waitfor('/[a-zA-Z]+>/');
$t->cmd("exit");
$t->close();

Net::TelnetのとこのPromptも [a-zA-Z]+> じゃないの？

あと、waitforは要らないんじゃない？ promptを待つのはcmdだけでよいのでは？

>>282
＞Net::TelnetのとこのPromptも [a-zA-Z]+> じゃないの？
[a-zA-Z]+> にした場合
＞Username:
に反応できなくなってしまったので:にしています

>>283
初心者のためまだ理解していないのですが、
$t->waitfor('/[a-zA-Z]+>/');
はAからZまでのローマじと>が出てきたときに次に進めという意味ですよね？

ログインするとプロンプトはRouter>になります

が、cmd以降のコマンドを打ってくれないので困っています

アドバイスください。

すみません、教えていただきたいのですが。
買い物などのWEBで、完了まで時間がかかるとき、「ただいま登録中です」のような一時的画面を表示させたいのですが、
perlではどのような方法があるでしょうか？
javaなどでは時々このようなページを使っているとこがあるのですが。。。。

>>285
多分きっと板違い。WebProg板で聞き直すといいよ。
あと、完了までの時間がどれくらいなのか、とか、ブラウザからのリクエストを
受け取った時点で完了までの時間がはっきりするのか、とかの情報も加えた
ほうがいいかも。

すみません、ローカルにはてなみたいなシステム構築したいのですが参考になるページ等在れば教えてください

>>286
ありがとうございます。ここでは×だったんですね。。。
すみませんでした。

Linux> ping -n 127.0.0.1
Pinging 127.0.0.1 with 32 bytes of data:

Reply from 127.0.0.1: bytes=32 time<1ms TTL=128
Reply from 127.0.0.1: bytes=32 time<1ms TTL=128

Linux>exit

Windows>telnet　10.1.1.1
Username:
Password:

Unix> ping -n 2 127.0.0.1
Pinging 127.0.0.1 with 32 bytes of data:

Reply from 127.0.0.1: bytes=32 time<5ms TTL=128
Reply from 127.0.0.1: bytes=32 time<5ms TTL=128

Unix>exit

上記のようなログがあり
その中からpingのリプライのtime<xmsをリストするプログラムを教えてください
出力としては
Linuxtime<1ms
Unixtime<5ms
にしたいです。
よろしくお願いいたします。

>289
まず、最低限下記の部分ぐらい仕様をはっきりさせろ。
・各(ホストを示す？)ブロックはexitで終わる？
・Reply from行が複数あって、timeが食い違ったときどうする？
・pingが通らないパターンはあるのか？あるならその時どうする？
話はそれからだ。

infoseek.jpにsmtp開いて単純にメール送ろうとしたら
NLだけじゃいかんといわれ
s/([^\r])\n$/$1\r\n/
s/^\n$/\r\n/
で修正して送ったら、うまくいくにはいったが、
cgiにしてサーバからおくると文字化けする。
しかも、なぜかクラッシュしてるらしく
サーバからの応答がない。
ブラウザが再送して、結果文字化けしたメールが
大量にinfoseekに残る。
これってなんで？
他のmailboxでは問題ない。

コードさらせ。

log1.txt log2.txt … log10.txt

というファイル名をきれいにソートしたい。

sort { $b <=> $a } @lists;

だとlog10 をうまく処理できません。

どうすればいいですか？？

ageます

map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { /log(\d+)\.txt/; [$_,$1] } @lists;

わぁ、どうも！

Perl信者共助けてやれ
http://pc8.2ch.net/test/read.cgi/tech/1131292946/

リクです。

20051108
aaa
bbb
end

20051109
ccc
ddd
end

20051110
eee
fff
end

という内容のファイル(xxx.txt)があって、標準入力に 20051109 を与えた時に

20051109
ccc
ddd
end

という部分だけを出力させたいんです。お願いします。

#!/usr/bin/perl

$date = <STDIN>;
chomp $date;

open(FH, 'xxx.txt');
while (<FH>) {
chomp;
if($_ eq ''){
$flag = 0;
next;
}
if($flag){
print $_, "\n";
next;
}
if($_ eq $date){
print $_, "\n";
$flag = 1;
}
}
close(FH);

テキトー

>>298
#!/usr/bin/perl
chomp($input = <STDIN>);
open XXX, "<xxx.txt";
$/="end\n";
while(<XXX>)
{
if(/^($input)/){ print $_; }
}


適当に作ったから動かないかもしれん。

>>299
動きました。ありがとうございます。

>>300
^ を消すと動きました。ありがとうございます。

PERL

とあるperlプログラムの中に
PHPでいう
<?php
require("sample.txt");
?>
と同じ効果を付けたいのですが
どんなスクリプトにすればよいのでしょうか

require 'sample.txt';

>>304
それはやりたい事と違うかも。
PHPでは<? ?>内じゃ無い部分はそのまま出力
use IO::File;
my $fh = new IO::File 'sample.txt';
while (<$fh>) { print $_ }
undef $fh;
やりたい事はどっちだろね

…複合型だと言うならスクリプト部分を判別出来るようにして置いて、マッチングしてevalに放り込む
s/<\?perl(.*?)\?>/$1/ge
例えばこんな感じで

初心者なんでなんともいえないのですが
ブラウザでxxx.phpに
アクセスして
<?php
require("sample.txt");
?>
を見ると
sample.txtの文字が表示されるんですよ
それと同じことを
xxx.cgiでもできないかなぁと思いまして

わかりにくくてすみません

sub require2 {
my $file = shift;

open my$o,">$file" or die;
print$o "orz"x 10**5;
close$o;
return"orz";
}

sub require_for_vip {
　my $gold = shift;

難しいですかね？

>>310
>>305に既に答えのコードが書いてあるわけだが。

ﾜﾛｽ

初心者すぎてイマイチわからない自分がいる…
勉強してからこい　っていう話だが

>>313
そりゃｽﾏﾝｶｯﾀ。説明がちゃんと必要だったな…
#--------------------------------
sub show_file {
my $file = shift;
use IO::File;
my $fh = new IO::File $file;
while (<$fh>) { print $_ }
undef $fh;
}
#--------------------------------
とでもスクリプトのどこかに書いておく。

で、
show_file('ファイル名');
という感じでそのサブルーチンを呼び出せば、そのファイルの中身が表示される。
パッケージが分かれていたりするとこれだけじゃ出来ないがまあその時はその時だ
IO::Fileモジュールが使えない環境ならこっち
#--------------------------------
sub show_file {
my $file = shift;
open SHOW_FILE, $file;
while (<SHOW_FILE>) { print $_ }
close SHOW_FILE;
}
#--------------------------------

なんどもすみません
.cgiのなかに
HTML表示するところがあるんですけど
そこにshow_file('ファイル名');をやっても
そのまま表示されてしまうのですが
（マジ初心者で迷惑かけすぎですね

表示をどうやってるのかによる。
単なるprint なのか、ヒアドキュメントなのか。

${show_file('ファイル名')}

printです

誰か心優しい方、これを作ってくださいｍ(__)ｍ
宿題に手づまりで助けてください！(＞人＜)

SQL.txtを読み込んで、gakusei.csvを読み出し、
そこからName,Addressのみを表示させるプログラムを作ってください！

データ↓
http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/1165.lzh

実行結果↓（予想）
Name,Address
Junichi,Tsukuba
Akinori,Hitachi

>>319
中身も見ずに書く。
つ[DBI + DBD::CSV]

htmlページでラジオ形式のインプットタイプを作り、
１００問の５択形式にします。
そして、「国語」、「数学」、「英語」、「理科」、「歴史」という
５分野にそれら１００問の回答の点数の結果を反映させたいのですが、
回答は１つの分野にのみ加点されるのではなく、例えば１問目が

「万有引力を発見したのはニュートンである」という質問だったとき

５択のうち１番目を選んだら「理科」の変数にも３点加点され、なお、
「歴史」の変数にも２点加点されるという形にしたいと思っています。

この場合、１科目の変数のみに影響するのではなく２科目以上になるので、
各質問ごとに設けた配列の点数をそのまま、「理科」だけに加点するということは
できなさそうです。



それぞれ１問目の　input name を "Q001"
２問目は input name を　"Q002"とし、3問目以降も同じような方法で
１００問目まで指定していきます。

そして、各問題、　「はい」、「はいに近い」、「どっちでもない」、
「いいえに近い」、「いいえ」という５択にして、
input value を「はい」から、"１"，"２"，"３"，"４"，"５"としていきます。


なにかいい構成が分かるかたいらっしゃいましたら、サブルーチン教えてください。

俺はこういうのはJavaScriptでやっちゃってる。

>>322
sendmailもいれてるからPERLでやってるんだけど、どうだろー

もしくは、計算部分だけJAVAで組んでその結果の変数値（スコア）のみを
CGIに渡すことって可能？

$table[1] = { # Q001
　　Q => {
　　　　label => "万有引力を発見したのはニュートンである",
　　　　option => [split(" ","はい はいに近い どっちでもない いいえに近い いいえ")]
　　},
　　A => [
　　　　{ rika => 3, rekisi => 2 }, #選択肢１
　　]
};

構成ってこういうこと？
俺もこれをそのままJSONにして、採点までJavaScriptでやった方がいいと思う

答えてくれて、ありがとう。
演算部分はjavascriptで組んで、
出てきた結果の値(各分野の点数や文字列など)を
PERLで組んだＣＧＩにデータを受け渡すことって
可能なのかなー？

>>326
フォーム内のフィールドにセットしてsubmitするとか、
クエリ文字列を生成しページ移動(Location.href)とか、
今流行のXMLHttpRequestとか色々あるんじゃないかな

>>327
最初の１ページ目でjavascriptで演算した値を２ページ目のcgiにサブミットして
表示させるってことは可能？

普通、cgiにサブミットするときってフォーム入力で、入力したもの（変数として）がそのまま
cgiのほうに渡されるでしょ？これを１ページ目でjavascriptで計算して、その結果の値を
そのままcgiに渡すって方法どうすればいいかな？

いいサンプルページやサンプルソースあったら教えてください。

もしかしたら、フォーム入力の「生年月日入力」の部分でこういうふうにjavascriptを組み込んで
昭和→西暦変換とかした値をcgiに渡してたりするようなページもあるような気もします

http://proxy.f2.ymdb.yahoofs.jp/users/13a494ce/bc/sample.html?bcDAlAEB6aOdocif

このような形で問１００まであって、問１００までの分の値と名前やメアドの値を
formmail.cgiというものに渡すというかんじです。CGI側で質問１００個の分の
演算をするのか、もしくは、アップーロードした、この1ページ目でjavascriptを使って
演算し、結果のみの値をcgiに渡して、それらを出力するのがいいのか迷っています。

また、記述の方法などのアドバイスもいただければ幸いです。

何度もすみません。
やはり、javascriptは使わずcgi側で１００問の結果判定を演算するサブルーチンを
作りたいのですが、どういう標記にすればいいでしょうか？>>321にも書きましたが

それぞれ１問目の　input name を "Q001"
２問目は input name を　"Q002"とし、3問目以降も同じような方法で
１００問目まで指定していきます。

そして、各問題、　「はい」、「はいに近い」、「どっちでもない」、
「いいえに近い」、「いいえ」という５択にして、
input value を「はい」から、"1"，"2"，"3"，"4"，"5"としていきます。

というかんじです。>>322さん、ありがとうございました。
もっと分かりやすい構文を教えていただけないでしょうか？

今考えているのは１ページ目でフォーム入力（ラジオ選択から得た情報)をcgiに
submitした後、getformして入力された値を読み込み

#質問結果判定
sub hantei {

1問目(１ページ目のQ001)「万有引力を発見したのはニュートンである 」に対し、
５択「はい(VALUE=1)」、「はいに近い(2)」、「どっちでもない(3)」、「いいえに近い(4)」、「いいえ(5)」のうち

・「はい」を選ぶと理科に3点加算（rika +=3）、歴史にも2点加算(rekishi +=2)とし、
・「はいに近い」を選択したなら(rika +=2)、(rekishi +=1)
・「どっちでもない」を選択したなら(rika +=1)、(rekishi +=0)
・「いいえに近い」を選択したなら(rika +=0)、(rekishi +=0)
・「いいえ」を選択したなら(rika +=0)、(rekishi +=0)
↓
次の質問(Q002)で同じような形でQ100まで演算していきます

どうでもいいけど、毎問メールアドレスを入力させられんの？

設問ごとの得点表を

%SCORE_TABLE = (
Q001 => { 1 => { rika => 2, rekishi => 2 },
2 => { rika => 2, rekishi => 1 },
....
},
....
}

という形で用意する。

cgi入力のうち、QNNNに対応する値を%input = (Q001 => 2, Q002 => 1 ,... )
という形のハッシュにまとめる。

あとは

while (my($q, $a) = each %input) {
while (my($k, $s) = each %{$SCORE_TABLE{$q}->{$a}}) {
$score{$k} += $s;
}
}

とまわせば%scoreにそれっぽい結果が得られるだろう。

>>331
ううん、メアドを登録しなかったらしなかったで得点表示のみのページのみ
出力されて、メアド登録したら、直接SENDMAILで詳細結果が
メールで届くようにするよ。

>>332
非常にありがたいんですが、原始的な組み方で

if ($moji{Q001} == 1) {
$rika += 2;
$rekishi += 1;}
elsif ($moji{Q001} == 2) {
$rika += 0;
$rekishi += 0;}
elsif ($moji{Q001} == 3) {
$rika += 0;
$rekishi += 0;}
elsif ($moji{Q001} == 4) {
$rika += 0;
$rekishi += 0;}
elsif ($moji{Q001} == 5) {
$rika += 0;
$rekishi += 0;}

にして、最終的にその結果から

if ($rika == 1) {$rikaTEXT = 'rika1点かな';}
elsif ($rika == 2) {$rikaTEXT = 'rika2点かな';}
elsif ($rika == 3) {$rikaTEXT = 'rika3点かな';}
elsif ($rika == 4) {$rikaTEXT = 'rika4点かな';}
else {$rikaTEXT = 'rika不明かな';}

if ($rekishi == 1) {$rekishiTEXT = 'rekishi1点かな';}
elsif ($rekishi == 2) {$rekishiTEXT = 'rekishi2点かな';}
elsif ($rekishi == 3) {$rekishiTEXT = 'rekishi3点かな';}
elsif ($rekishi == 4) {$rekishiTEXT = 'rekishi4点かな';}
else {$rekishiTEXT = 'rekishi不明かな';}

そしてこのスコアから判断されたメッセージをHTML出力するとき

$rikaTEXT<BR>
$rekishiTEXT<BR>


でいいのかな？このままの構成を残して訂正しなきゃならない部分を教えてください。
これで実行してもrikaのスコアしか表示されなくて、rekishiのスコアは表示されません(T_T)

鬱陶しいなあ。
まったく理解できないのに偉そうなことばかり。
もうどこかに委託しろよ。

>>336
まあまあ、あまり怒りなさんな。
オレはこの調子で100問分書いたスクリプトというものをぜひ拝見したい。

>>335
最後の部分をこんな風に書いたんじゃないの？
---------------------------------
print "$rikaTEXT<BR>
$rekishiTEXT<BR> ";
---------------------------------
それなら、こうするとうまくいくよ。
print "$rikaTEXT<BR>\n$rekishiTEXT<BR> ";

あと、スクリプト完成したらぜひ公開きぼ〜ん。

>>337
ありがとう。見せたいとこだけど、
ごめんよー

>>338
そうか。Perlスクリプトを公開すれば解答も公開すること
になるから仕方ないかもしれんな。しかし、大体の想像はつく。
>>334 に書いてあるものを１００問分作って、
>>335 に書いてあるものを０〜２００の範囲で作るんだね。
拝見できないのは残念だが、まあ、がんばってタイプしてくれ。

>>339
本当にありがとう。いい人いるんだね。ありがとう。
点数配分を配列ではなく、原始的な構造でチマチマ入力してやっていきます。
３０００行以上のCGIになります（笑）

微笑ましいですね^^

＾＾；

性別

回答者合計者○($SEXSUM)名中

男○($SEXMALE)名
女○($SEXFEMALE)名




というのをHTMLで出力したいんだけど、ディレクトリに　SEX.txtというのを置いて
そのtxtファイルの中に「　0,0　」
というふうに男女の初期値の人数をいれておいて。

毎回フォームから'GENDER'の値が0(男性)．もしくは1(女性)で送ってきた時のみ。
SEX.txtを読み込んで、１足して表示→そして読み込んだSEX.txtの人数の一人プラスという
ようなPERLスクリプト分かる人いますか？

http://pc8.2ch.net/test/read.cgi/tech/1131286411/641

マルチ放置推奨

西暦の　"2005"という部分だけ、取得したいんだけど

$TIME= （ここはどうすればいいですか？）

>>345
この辺読んで基礎からじっくり勉強したらいいんじゃない?
http://pc8.2ch.net/test/read.cgi/tech/1131286411/2
http://www.hyuki.com/writing/techask.html

my($sec, $min, $hour, $day, $mon, $TIME, $wday) = localtime(time);

# 取得した値を調整（リファレンス参照）
$TIME+= 1900;

>>347
とんくす

$TIME=`perl -MPOSIX=strftime -le 'print strftime("%Y", localtime())'`

>>347
長い

$TIME = 1900 + (localtime(time()))[5];

>>350
長いというならlocaltimeの引数のtime()も省略可能だよ。

>>351
ナイスつっこみ！
お前みたいなのを待っていた

知ってるよ
どんなunixtimeを渡すのか分からんから一例を書いたまでだ

そういうのを負け惜しみって言うんだぜ

>>345
$TIME = 1900 + (localtime)[5];

個人的には strftime の方が好みだな。

>>343
Yahooにまで…。
http://messages.yahoo.co.jp/bbs?.mm=CP&action=m&board=1835099&tid=a1zperla1ya5qa1bca5ka1z&sid=1835099&mid=368
しかも誰か答えちゃってるし。

なんで煽られてるのかが分からんのだが・・中学生か？

>>343の答えは
http://pc8.2ch.net/test/read.cgi/php/1102980903/965-967
でもう出てる

>>358
変な奴はほっとけ

VIPが出来てから馬鹿が流入してきた

馬鹿というかガキなんだよな。煽り方も知らないような。

ネットショップで○○時から○台限定で販売、とかいうのを買おうとすると
真っ先にスクリプターに買い占められちゃうんだけど
そういうのに対抗できる自動購入スクリプトってPerlで組めませんか？

組めたとしてもここで公開されれば対策される。
対策されなくても公開されている以上大勢が使う。
意味がない。

>>363
組めます

｡ﾟ(ﾟ∩д∩ﾟ)ﾟ｡
確かに仰るとおりですね・・・

楽天のなら作った事ある

ビックカメラのは組めませんか？

楽天のは空売りですよ

いや、俺は楽天で1円で1GBのmp3プレーヤゲットしたんだがｗ

サンプルページはないのか
ビックカメラの
仕様が分からんとどうにもならんだろ

ビックカメラの場合
こういう場合のと
http://www.biccamera.com/bicbic/jsp/w/catalog/detail.jsp?PRODUCT_ID=0010097057
こういう場合のがあるんだけどなんか違うの？
http://www.biccamera.com/bicbic/app/w?ActionType=bw011100_01&PRODUCT_ID=0010007029

age保守

はじめまして、PAJA といいます。
# Vine Linux 3.1 の Perl v5.8.2 です。

./trial.pl の中で、

`vi ./hoge.txt`

と記述したところ、下記のようなメッセージがでてしまいました。

" Vim: 警告: 端末への出力ではありません"

やりたいことは、./trial.pl を実行すると "./hoge.txt を vi で開く"
ようにすることです。

どうすれば、できるようになるでしょうか。

よろしく、お願いします。

system "vi hoge.txt";

>> 374

ちゃんと開くことが出来るようになりました。
ありがとうございました。

>>373
実行したものからの出力を受け取らないならバッククォートは使わない

と覚えておくといいよ。

すいません。教えてください。
$_ = "AI今日U<KAKIKU>SASISU明日<TATI*TU>NANI";
であるとき

$s1が"AI今日U<KAKIKU>SASISU%sNANI"、
$s2が"明日"、
$s3が"明日TU"、
$s4が"TATITU"
となるようにするプログラムを教えてください。
どうかよろしくお願いします。

>>377
$s1 = "AI今日U<KAKIKU>SASISU%sNANI";
$s2 = "明日";
$s3 = "明日TU";
$s4 = "TATITU";

それだけしか条件がないとこれでもいいわけだが(笑)

どういう規則でそうなるのか例だけじゃわかんね。

>378
すいません。 $_ = "AI今日U<KAKIKU>SASISU明日<TATI*TU>NANI";が条件です。
自分では以下のようにしてやってみていたのですが、うまくいきません。
@list = split (/,/, $_);

if ($list[2] =~ /<[A-Z]+\*[A-Z]+>/) {
($s1 = $list[2]) =~ s/[^A-Z][^<]*<[A-Z]+\*[A-Z]+>/%s/g;

@s2 = $list[2] =~ /([^A-Z][^<]*)<[A-Z]+\*[A-Z]+>/o;
$s2 = $s2[0].$s2[1];

@s3 = $list[2] =~ /([^A-Z][^<]*)<[A-Z]+\*([A-Z]+)>/o;
$s3 = $s2[0].$s2[1];

@s3 = $list[2] =~ /<([A-Z]+)\*{1}([A-Z]+)>/g;
$s3 = $s3[0].$s3[1];
}

だめだ。問題を説明する能力のない人らしいので
エスパーさん出番です。

こうかな。

$_ = "AI今日U<KAKIKU>SASISU明日<TATI*TU>NANI";

(my $s1 = $_) =~ s/([^A-Z<]+)<([A-Z]+)\*([A-Z>]+)>/\%s/;
my $s2 = $1;
my $s3 = $1 . $3;
my $s4 = $2 . $3;

use Data::Dumper;
print Data::Dumper->Dump([$s1, $s2, $s3, $s4], [map { 's'.$_ } (1 .. 4)]);

>>377
誰にでも理解できるように仕様を説明するように。
具体的に言うと、小学生にも分かるように。

というか、解決？かどうかまだ不明ですが一応出来ました。
379は貼り間違いました。↓は解決？したものです。
$_ = "AI今日U<KAKIKU>SASISU明日<TATI*TU>NANI";
($s1 = $_) =~ s/[^A-Z][^w]{1,3}<[A-Z]+\*[A-Z]+>/%s/g;
print "$s1\n";

@s2 = $_ =~ /([^A-Z][^w]{1,3})<[A-Z]+\*{1}[A-Z]+>/o;
print "@s2\n";

@s3 = $_ =~ /([^A-Z][^w]{1,3})<[A-Z]+\*{1}([A-Z]+)>/o;
print "@s3\n";

@s4 = $_ =~ /<([A-Z]+)\*{1}([A-Z]+)>/g;
print "@s4\n";
これで一応目的の動作をするのですが、
2行目が特によくわかりません。
[^A-Z][^w]{1,3}は何でしょうか?
[^w]って何?ワード文字？ワード文字は\wですよね？
[^w]を普通に読むとwという文字以外すべてだと思うのですが。

>381
わかりにくくてすいません。
目的は文字列中の<*を含む英大文字>の部分とその直前の漢字の展開です。

メートル単位の長さを与えて、それをヤードに変換して表示するプログラムを教えてください。

1メートルは1.1ヤードとしてください。

インボカントって何か教えてください

追記します。

メートル単位の長さをヤードに変換したり、ヤード単位の長さをメートルに変換するプログラムを教えてください。

>>384でかいたような一方通行のプログラムでしたら分かります。
上のような場合、どうやって分岐(?)させればよいのでしょうか？

>>384について考えたプログラムを載せておきます。
どなたか、>>386のように改変してください。。。

use strict;
my ($meter, $yard);
print "長さをメートルで入力してください";
$meter = <STDIN>;
chomp ($meter);
$yard = $meter * 1.1;
print "$meterメートルは$yardです。\n";

>>387
入力値がメートルとした場合のヤードの値
入力値がヤードとした場合のメートルの値
を計算して結果を２行書けばいいんじゃね？

>>388
なるほど。
入力時の数字が、10だったら

10メートルは***ヤードです。
10ヤードは***メートルです。

とすれば良いのですね。
逆転の発想ですね！ありがとうございます。

それなんて宿題

age
宿題でもどーんとこいや

perl -MO=Xref,-r hoge.pl の結果から以下のような結果を整形してみたいです。出してください。
■結果
hoge.pl　250<0>main()
hoge.pl　160├<1>get_home_directory()
hoge.pl　135│└<2>usage()
hoge.pl　190├<1>read_configration()
hoge.pl　220│└<2>get_string()
　　　　　　　＜＜略＞＞

>>392
-r 付けなきゃそれっぽくならんかね。

あれだと、エディタのタグジャンプ使えないし、みづらいので。
cの関数コールグラフ書くフリーウェアのfunctreeみたいな使い勝手
のものが欲しいです。

>>386
引数で数値の後に m が付いていたらメートル、yが付いていたら
ヤード、ということにするならこんな感じか。

#!/usr/bin/perl -w
use strict;
for(@ARGV) {
if(/^(\d+(\.\d+)?)(m|y)$/) {
if ($3 eq 'm') {
print "$1 メートル = " . ($1 * 1.1) . " ヤード\n";
} else {
print "$1 ヤード = " . ($1 / 1.1) . " メートル\n";
}
} else {
print STDERR "$_: 解釈できません。\n";
}
}

1
INDATEというファイルの中身を読み込んで処理するものであること。(INDATEも提出すること)
2
少なくとも一個のif文をつかっている。

3
for.while.foreachなどの繰り返しを少なくとも一個は使っている。
4
少なくとも一個の配列を使っている。
5
少なくとも一個の引数を使っている。
6
以下の様に実行することでOUTDATEに結果が出力される。
%KADAI3＜INDATE＞OUTDATE
注:3は引数である。

という課題です。頼みます。

>>396
教科書に答えが。

>>397
う・・・

なんだその意味不明な課題
俺が馬鹿なだけかもしれんが、何をしたいのか訳わからん

>>399
1〜6を満たす自由な機能のプログラムを作るって課題なんですが…

ああそういう意味か
%KADAI3＜INDATE＞OUTDATE
まだこれの意味が分からんが

>>401
Terminalで入力したらってことだからあまり関係ないです。ごめんなさい。

それDATEじゃなくてDATAだろ

>>403
そうです。ほんとごめんなさい。

結局>>397でFAだな

そんなぁ・・・

#!/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);
}
}

仲間分けについてのプログラムについて教えてください
１番と３番
１番と５番
１番と７番
２番と６番
２番と８番
３番と５番
３番と１１番
が仲間です
配列には上から
1\t3
1\t5　……のように入っています

この時1,3,5,7,11　と　2,6,8　のように仲間に分けるプログラムを作ってください

Perl初心者です。教えてください。

日付,メールアドレス
日付,メールアドレス
日付,メールアドレス
・
・
・
と数万行も続くデータから、重複メールアドレスが存在したときは
その行を取り除くということは出来るのでしょうか。
困っています（；；）教えてください。

できるよ

どうやればいいのでしょうか？
是非教えてください。。。

>>409
perl -ne "/,(.+)/ && !$dup{$1}++ && print" in.csv > out.csv

>>412

ありがとうございます（*^^*）
これはコマンドプロンプト(PC)上で行う処理方法でしょうか？
サーバー上のCGIファイルの中で処理する場合の書き方はありますか？

またin.csvというのが元のデータファイルで、out.csvというのが
出力された新しいファイルですよね？

perl -ne "/,(.+)/ && !$dup{$1}++ && print" in.csv > out.csv

これも試してみましたがうまくいきません。
1万行以上あるのに新しく作られたファイルは60行足らず。

もしかすると私の説明不足なのかもしれません。
重複したメールアドレスの存在しない日付,メールアドレス
のリストを作りたいのですが。。。

意味わかりますでしょうか（＊＊）ごめんなさい。。。

>414
m月d日に誰からメールが来てるかのリストを作るのか？

だったらDBに読み込んでクエリ書いた方が手っ取り早いと思われ。
SELECT dateval, addr FROM infile GROUP BY dateval, addr;

>>414
てことはまず日で分けて、その中に同じアドレスがあっても1つで出すということだな。
じゃあこれを参考に作れ。

my %data;

while (<>) {
　chomp;
　if (/^([^,]+),(.+)$/) {
　　$data{$1}{$2} = 1;
　}
}

for my $day (sort keys %data) {
　for my $addr (sort keys %{$data{$day}}) {
　　print "$day,$addr\n";
　}
}

>>408
何がどう仲間なのか全然分からん。
もっと詳しく説明するように。

>>408
こんなのか？データは標準入力から。

my @ary=();
my @index=();
sub pushme($$)
{
my ($ary,$val)=@_;
my $i;
for($i=$val;!UNIVERSAL::isa($ary->[$i],'ARRAY');$i=$ary->[$i]){}
push(@{$ary->[$i]},$val);
}
while($_=<STDIN>){
/^(\d+)\t(\d+)$/;
if(defined($ary[$1])){
$ary[$2]=$1;
pushme(\@ary,$2);
}elsif(defined($ary[$2])){
$ary[$1]=$2;
pushme(\@ary,$1);
}else{
my @newary=($1,$2);
$ary[$1]=\@newary;
$ary[$2]=$1;
}
foreach(@ary){
if(ref($_) && ref($_) eq 'ARRAY'){
print join(",",@$_)."\n";
}
}

本当は sub pushme に \@ary 渡すのは蛇足。
渡さなくともここでは @ary は有効なスコープ。

>>408
@list = ( "1\t3", "1\t5", "1\t7", "2\t6", "2\t8", "3\t5", "3\t11" );
$tmpstr .= join ':', map "\t$_", @list;

1 while $tmpstr =~ s/(\t\d+)((?:\t\d+)*):((?:[^:]*:)*)((?:\t\d+)*)\1((?:\t\d+)*)(?::|$)/$1$2$4$5:$3/;
1 while $tmpstr =~ s/(\t\d+)((?:\t\d+)*)\1(?=\t|:)/$1$2/;

@grouping = map [/(\d+)/g], split ':', $tmpstr;
$" = ",";
print "@{$grouping[0]}と@{$grouping[1]}\n";

配列に@nakamaに上から
$nakama[0]="1\t3";
$nakama[1]="1\t5";
……

という風に入っていて、それぞれ１と３は仲間、１と５は仲間という意味になっています。
１と３が仲間で、３と１１が仲間であれば１と１１も仲間とします。

これで>>408を 1,3,5,7,11と　2,6,8に分けたいのです。

>>420
おお、更新していなくて分かりませんでした。
それでうまく出来ました。ありがとうございます！

409です。>>416さん有難う御座います。。。
私はホントに初心者で・・・説明べたで申し訳御座いません。
416さんのは同じ日付内で同じメアドがあった場合、排除するという
内容でしょうか？

たとえば
1月1日,[email protected]
1月1日,[email protected]
1月1日,[email protected]
1月2日,[email protected]
1月2日,[email protected]
1月3日,[email protected]
1月3日,[email protected]
1月4日,[email protected]
とあった場合、

↓↓↓変換後↓↓↓↓

1月3日,[email protected]
1月3日,[email protected]
1月4日,[email protected]

というように同じメアドが重複しないように更に日付は最新（最下段）
の日付を付けてリスト化したいのです。。。
日付は最上段のものでも構いませんが。。。

出来れば。。。できれば。。。データファイルの読み込み部分から
解説して頂けないでしょうか。。。DBではなく、テキストファイルなんです。。。
本当にすみません（＞＜）（；；）

ファイル読み込みくらいなら、perl入門のサイトや本で調べられるだろ

>>423
初心者初心者連呼するならエクセルのフィルタ使うとかにしたほうがいいんでない？

>>424厳しいお言葉・・・有難う御座います。
ではファイルの読み込み部分は結構です。。。
>>425それでは意味がないのです。。。

お願いします！！！（；；）

こんな擦れ合ったのか〜

次の答えを教えてください。

以下のタグを結合したい。

(1)<M>hogeM</M><X>hogeX</X> →　 <X>hogeMhogeX</X>
(2)<X>hogeX</X><M>hogeM</M> →　 <X>hogeXhogeM</X>
(3)<M>hogeM</M><X>hogeX</X><M>hogeM</M>　　 → <X>hogeMhogeXhogeM</X>
※<M>hogeM</M><X>hogeX</X><M>hogeM</M><X>hogeX</X>　は結合しない。

＜例＞
※以下は一行で、\ は連結の意味です。

......hoge.......<M>hogeM</M><X>hogeX</X>.....\
........hoge......<X>hogeX</X><M>hogeM</M>.....\
.....hoge.........<M>hogeM</M><X>hogeX</X><M>hogeM</M>...\
.........<X>hogeX</X>................<M>hogeM</M>..\
..<M>hogeM</M><X>hogeX</X><M>hogeM</M><X>hogeM</X>
↓
......hoge.......<X>hogeMhogeX</X>.......\
......hoge......<X>hogeXhogeM</X>..........hoge....\
.....<X>hogeMhogeXhogeM</X>............<X>hogeX</X>...\
.............<M>hogeM</M>...\
.<M>hogeM</M><X>hogeX</X><M>hogeM</M><X>hogeM</X>

正規表現でも、何でもOKなのでお願いします。

難しかったかな？

>>427
ヒント: 解く奴も人間

>>427
無理

>>426
意味がないってどういうこと？
csvをエクセルに読み込んで重複を消すだけじゃないの？
知識らしい知識もいらんし煽りじゃなくあなたのような人向けだと思うが。

>>413でCGIで動かしたいってあるよ

>>423

while (<$fh>) {
chomp;
my($date, $mail) = split /,/;
$mails{$mail} = $date;
}

後は自分で何とかしろ。

>>433さん　素敵です！
あまりハッシュって使ったこと無かったので・・・
出来ました！！！有難う御座います！！！

<2></2>を削除する正規表現教えて
(例)
.....<1>.....<2>....</2>....<1>.....
　　　↓
.....<1>.............<1>.....

s/.....<1>.....<2>....</2>....<1>...../.....<1>.............<1>...../g

>>435だけど
間違えた。

<2></2>を削除する正規表現教えて
(例)
.....<1>.....<2>....</2>....</1>.....
　　　↓
.....<1>.............</1>.....

正規表現の基礎の基礎じゃないか

掲示板スクリプトで、名前が「あ」か「い」か「う」の人以外は書き込みできない、
という風にする場合

if ($name !/あいう/) { &error("名前が間違っています",'NOLOCK'); }

ではないですよね。
「あ」か「い」か「う」というのはどう書けばいいでしょうか。

すみません。実際には「あ」か「い」か「う」ではなく、
「一」か「二」か「三」か・・・「三十五」か「三十六」という風になります。
一〜三十六までの漢数字を入れなければ投稿できない、という風にしたいのです。

自動で貼られてしまう広告よけのためなのですが、
何卒よろしくお願い致します。

440=439です。

すみません。できました。
|で区切ればorの意味になるようでした。

if ($name !~/一|二|三/) { &error("名前が間違っています",'NOLOCK'); }

というような感じで動きました。失礼しました。

これも正規表現の基礎の基礎の基礎だよな・・
マジで・・

<2>.*?</2>

>>444
><2>.*?</2>
".*?"という文字列はGoogleで検索できないため、申し訳ありませんが、
意味を教えていただけますでしょうか？

.*は文字の0個以上（.+は１個以上）にマッチだと思いますが、これに?が付いた
.*?がいまいち、よく分かりません。

>>445
Perl はググる前に perldoc 。
http://www.kt.rim.or.jp/~kbk/perl5.005/perlre.html#Regular_Expressions

>>442
use encoding でエンコード指定しておいて
$name !~ /[あいう]/ で判定する方がいいと思う。

>>445
最小マッチ

デフォルトは最大でマッチする。
たとえば 'abcabcabcabc' という文字列に対して /a.*a/ は 'abcabcabca'
の部分がマッチするが /a.*?a/ だと 'abca' がマッチする。

>>448, 446
ありがとうございます。

>最小マッチ
Perl歴１７年ですが、この正規表現は見落としていました。
わざわざ、(1)のような書き方をしてきましたが、
(1) <2>[^<]*</2>
(2)の方が読みやすいですね？　
(2) <2>.*?</2>
勉強になりました。

はぁ、どうして下らない嘘をつくかな

>>449
詳説 正規表現 第2版まじおすすめ

Perl 歴 17 年で正規表現もまともに使えないなんて、そんなの「歴」のうちに入らんよ。

>>452
>Perl 歴 17 年で正規表現もまともに使えない
正規表現の基本が分かっていなかったので、人にPerlを教える
のは無理でしょうが、研究機関の仕事を主にPerlでこなして
きたことは嘘ではありません。どんな書き方でも、限られた
時間内にバグがないスクリプトが書ければ、仕事がこなせま
す。

perlの良いところは、Larry Wallが言うように、>> 449 の
(1)でも(2)でも、様々な方法で目的が達成できる点です。

なんつーか・・
一生VB・HSPやってるようなモンだな
進歩がなけりゃただの・・

449 の2しか知らん

>>453
こなせてないじゃん。
>>435 程度のことも人に聞かないと出来ないんだろ？

Perl って1987年12月生まれなんだな。18年前か
http://history.perl.org/PerlTimeline.html

まあ17年前からPerl(というかUNIX)やってて正規表現知らないなんて
ありえない

「Perlプログラマのレベル10」
ttp://d.hatena.ne.jp/naoya/20050809/
のレベル5に
> 多くの人たちがこのレベルを超えないのは、たとえ非効率であっても、
> 再利用可能なコンポーネントの作成を除けば、ほどんど何でもできるからである。
とあるように、必要性を感じられなければそれ以上のものはなかなか知ることが出来ないんだろうね…人間ってのは。
この機会にPerl5の奥深さを学んでみたらどうだ？その霧の先には素晴らしい世界が広がっているぞ

>>457
最短マッチが使えるようになったのはPerl5以降だよ。
それ以前に覚えた正規表現をそのまま使い続けていたんだろうね。

ああ、最短マッチを知らなかったってことだったのか
斜め読みしてた

>>449
くっ。負けた。俺、Perl歴16年。

お願いします。

♂ﾁｰﾑと♀ﾁｰﾑが2つのｺｰﾄで♂♀別総当り戦をしたく
両ｺｰﾄ同時進行として

♂が4ﾁｰﾑ・♀が2ﾁｰﾑの場合･･･
【Aｺｰﾄ】　　【Bｺｰﾄ】
♂1-♂2　♂3-♂4
♀1-♀2　♂1-♂3
♂2-♂4　♀1-♀2

↑の3回戦で総当りになる。

では♂が7ﾁｰﾑ・♀が3ﾁｰﾑってなったとき
どう組み合わせればよいかみたいなのを計算させたいです。

できれば3連ﾁｬﾝとかで試合することにならないように･･･

>>462
♀1-♀2 が2回あるのはただの総当りではないと思われるが
どういう規則なのかね?

>>463
ｽﾐﾏｾﾝ間違いです･･･。

♂が4ﾁｰﾑ・♀が2ﾁｰﾑの場合･･･
【Aｺｰﾄ】　　【Bｺｰﾄ】
♂1-♂2　♂3-♂4
♀1-♀2　♂1-♂3
♂2-♂4　　 -

>>462
こうですか？　わかりません。

use strict;
use warnings;
local($a,$b);
my(@t,@p,@f,@ct,$w,$i,$j,$k);
($t[0],$p[0])=('',$f[0]='0');
$t[$_]='♂'.$_,$p[$_]=0,$f[$_]='011111111000',substr($f[$_],$_,1)='0' for (1..8);
$t[$_]='♀'.($_-8),$p[$_]=0,$f[$_]='000000000111',substr($f[$_],$_,1)='0' for (9..11);
@ct=('A:',' B:');
do {
++$_ for (@p);
for (@ct) {
$a=$b=$w=0;
for $k (1..$#p) {
$i=$j=0;
($i,$j) = ($p[$_]>$j && substr($f[$_],$k,1))?($_,$p[$_]):($i,$j) for ($k..$#f);
($a,$b,$w) = ($k,$i,$j<$p[$k] ? $j : $p[$k]) if $p[$k] && $j && ($w<$p[$k] || $w<$j);
}
print $_,$t[$a],'−',$t[$b];
$b=$p[$a]=$p[$b]=substr($f[$a],$b,1)=substr($f[$b],$a,1)=0;
}
print "\n";
$b+=/1/ for (@f);
} while($b);

>>462
CPAN には、順列、組み合わせを扱う Algorithm::Permute
というモジュールがある。これが使えるんじゃないの？
（オレは使ったことは無いけど）

総当たりの全組合せを求めた後で、それの並べ方を考えればいいのでは
ないだろうか。同じチームがなるべく連続しないようにするなど。
そして最後にコート分けする。

直リンクが不可能なアップローダー　cgi あったら便利だと思う

直リンクされたことによって消滅するアップローダは多いからな

perl で書かれたものキボン

マルチ
http://pc8.2ch.net/test/read.cgi/tech/1138519327/308

>>468
ってかんなもんすでにあんだろが

>>470
直リンクを不可能にするような状態のcgiアップローダのスクリプトって配布されてる？
されていないんじゃ？

REFERER が期待する値以外だったらリジェクトするだけじゃん

http:///***:****/にソケット飛ばしてHTMLデータを引っ張ってくるにはどうしたらいいですか？

>>473
ソケットは飛ばない。
perl -MLWP::Simple -e "get q|http://www.example.com/path/to/file.html|"

ファイル内の　*.gif　を　*.bmpへ変換するプログラム作ってもらえませんか？
正規表現だったらどうなるでしょうか？

拡張子だけ(名前の変更(M))だけ、できればよいので、、、。
変更しなければならないものが100近くあるので^^;助けてください

>>475
そんな見当違いな質問をしてると
perlのスクリプトを書いても「どうやって実行するんですか？」
とか聞かれそうだと思われて誰にも相手されないよ

>>475
名前の変更(M)とか書いてる所を見るとWindowsだと思うが、
ファイル名をマジで変えるだけなら、DOS窓で

C>CD 変えたいファイルがあるディレクトリ
C>RENAME *.gif *.bmp

でいいんじゃマイカ？

UNIX系なら
% cd 変えたいファイルがあるディレクトリ
% mv *.gif *.bmp

どちらにしろ同じか。

※　データ形式は変わらないから開けなくてもしらん。

>>478
> % mv *.gif *.bmp
> % mv *.gif *.bmp
> % mv *.gif *.bmp
> % mv *.gif *.bmp
> % mv *.gif *.bmp
> % mv *.gif *.bmp

>>478
それは Windows/DOS じゃないと使えない技だぞ。

「名前の変更(M)」って書いてるくらいだから
Windows前提で答えれば良いっしょ

>>475はファイル名だけ変えたいんだね。
拡張子がbmpであるgifファイルを作りたいんだね。
いや、きっとそうなんだろうね。質問の内容からして
そうだし、他の人もそう理解しているようだし。

perl -pi -e "s/\.gif/\.bmp/g" <ファイル>

>>478
有難うございました。WinとLinux（UNIX）では、コマンドが違うからsystem()関数を使っても
同じプログラムとはいかないわけでしたね。
それに、Perlを使わなくてもできるんですね。
Cで書かれたコマンドがすでにあるからこれを使わない手は無いですね。OSにです。

今だCでプログラム書いたり、Cで書かれたexeばかり使っているので、手持ちのperlスクリプトを増やしたかった訳でした。。

いつもCで事足りてしまうみたいです。。有難うございました。

UNIX（Linux）とWindowsのコマンドが違う以上、汎用的なものを作るのってなかなか難しいですね。。。。？

本当、Cプログラマで良かったとつくづく思います。。

日記はチラシの裏に

リアルで会ったら頭蹴り飛ばしてやんのに

>>490
乙ｗ死ねｗ

>>490
リアルで会ったら頭蹴り飛ばして殺してやるのにｗ

人格異常者だと思われてるから、普段リアルで誰にも相手されないよ〜

会社訪問した際、面接官に目が包丁のようだよと言われますた。
腹が立ったので、帰る際後ろから面接官の頭蹴り飛ばしてやりました。

電車に乗ると、たくさんのひとの頭を蹴り飛ばさなければならないので
怖くて乗れません。

別にいつ死んでもいいので、PG組んでます。

(;´д`)

世の中みんないい人ばかりじゃないしねぇ

ファイル内って書いてて答えがこれ？
C>RENAME *.gif *.bmp
死ね

491-495
で、だれ？おまえら

おれだよ、おれ
500

とりあえずここには
>>478以外、まともな人間はいなさそうだｗ

これ書いてる奴が？
% mv *.gif *.bmp

>>490
(;´д`) いや　話しかけてこないで。さよなら

ローマ字で入力すれば、あらゆるその読みの文字にマッチするスクリプト
gyouで行やら業やらぎょうやらギョウやらgyouやら

migemo

だってあれ完璧じゃないんだもん

>>506
migemo の「辞書」が完璧じゃないんだろ？
「辞書」をしっかり作れ。Perlでmigemoみたいなこと
をやるにせよ、辞書が命だ。

おまえも>503おまえも>506
死ね

>>508
うはｗｗｗｶｯｺﾖｽｗｗｗｗ
俺にも氏ねって言ってぇぇｖｖｖｖｖｖ

>509
しねしねしねー♪从´∇｀从

カウンターで
0＝あ
1＝1
略
49＝を
50＝ん
って感じに変換するにはどーすればいいんですか？

日本語でおｋ

>>511
my %c = (
　'0' => 'あ',
　'1' => '1',
# 略
　'49' => 'を',
　'50' => 'ん'
);

などと作っておいて $c{$count} のような感じで対応する文字列を求める。

>>1
楽天とかで任天堂DSを購入するスクリプト組んでくれよ。人力じゃ無理　買えないｗ

連投スクリプトください

#!perl
use LWP::Simple;
while (1) { get 'http://pc8.2ch.net/test/bbs.cgi'; }

連投スクリプトください

連投規制、バーボンに引っ掛からない２ｃｈ投稿スクリプト希望

#!perl
use LWP::Simple;
while (1) {
get 'http://pc8.2ch.net/test/bbs.cgi';
sleep 30;
}

明らかに悪用する気満々だから嫌。

スレを埋めるときに使うんです（＞＜；）

スレ埋めは、自分でスクリプトを書ける者にのみ許される神聖なる儀式であルッ!!

思いっきり悪用の気配やんか

あんま調子にのんなよ

テキスト処理でおうかがいします。
半角数字と全角数字が混在したテキストがありまして、
一桁のみの数字は全角、二桁以上の数字は半角に統一したいのです。
中身を見てみると、「3３」とか「67９」とかになっていて、
どういう入力をしたのか不思議でなりません。
何かよいお知恵はないでしょうか。

Perl 5.8.1、Mac OS XのTerminalで作業をしています。
入力ファイルのエンコードはUTF-16（中国語処理のため）、
use utf8;で処理しています。

適当に正規表現で変換してったらいいんじゃないの？

s/１/1/

全部半角にしてから全角に直すだな

>>526
>>527

こんな感じで書いてみました。

while(<>) {
tr/[０-９]/[0-9]/;
s/(￥D)１(￥D)/$1１$2/g;
（中略）
s/(\D)9(\D)/$1９$2/g;
print;
}

ただ、これだと2回同じ処理をしないといけないですよね。
最初の処理でtr行、次の処理でs行になるんでしょうか。
これを効率よく1回の処理ですませたいのですが、いいやり方をご存知ないですか？

use utf8;
use Unicode::Normalize;

$str = NFKC($str);
$str =~ s/(?<!\d)(\d)(?!\d)/(my $ret = $1) =~ tr[0-9][０-９]; $ret/ge;

これでどうだろう。

>>528
逆。数字をまず全部全角にして、
その後2文字以上連続する全角数字を半角にする。

TextSS　のWindowsXP(Professional)64bit化おながいします

もしくは64bitにネイティブ対応したテキスト置換ソフトありますか？

そういや64bitにネイティブ対応している２ｃｈブラウザてありましたっけ？

テキスト置換で64bitに対応してると
なんかいいことあんの？

>>531
マルチ + スレ違い乙

>530

ご指摘どうもありがとうございます。
他にも処理が山ほどあり、あまり時間がなくてテンパってました。

>529

うまくいきました。どうもありがとうございました。
こういうときに先読み・後読みを使うんですね。
教えていただいたものを流用して、
2桁のみ半角にすることもできました。

>>529 を書いて気が付いたんだが、Encode::JP::H2Z が変換できるのは
カタカナだけなんだな。

日本語処理で凝ったことしようと思ったら、Jcode なんかねぇ…。

>>532
読み込みの段階で６４ビットは有利

うそつけ

>>528
「￥」と来たか。「\」ではないと。

すいません、リクです。

数字を有効数字の桁数で丸めるスクリプトを探しています。
例えば、round(数字, 桁数)の形で使うとすると、
round(-12345.067, 4)
round(-12345.067, 7)
round(0.0567, 1)
round(1234567890123456, 4)
は、それぞれ
-12350
-12345.07
0.06
1.235e+015
を返す、というようなものなんですが、どなたかお願いできませんか

最後の1つはprintfの%.3eでいいだろうし、上3つはMath::SigFigsのFormatSigFigsが
使えると思うから、値の範囲かなんかで場合分けしてそれぞれ食わせればいいんで
ないかな。

>>540
出来ました。どうもです。

あと、CPANを漁っていたらNumber::Formatに似たような機能をみつけたので、
これを改変してもうまくいきました。

sub round {
my ($number, $digits) = @_;
my $sign = $number <=> 0;
my $result = abs($number);
my $index;
if($number =~ /(.*)e(.*)/) {
$result = $1;
$index = $2;
}
my $precision = $digits - length(int($result));
if($result =~ /^0(\.0*)/) {
$precision += length($1);
}
my $multiplier = (10 ** $precision);
$result = int($result * $multiplier + 0.5000001) / $multiplier;
$result = -$result if $sign < 0;
$result *= (10 ** $index) if $index;
return $result;
}

$ip_sample = 222.4.xxx.xxx #フォームや環境変数から取得
$ip_data <<END_DATA;　　#外部ファイルから読み込んだデータ(実際は約2万4千行程度)
国名A-221.184.0.0-221.191.255.255
国名B-221.240.0.0-222.15.255.255
国名C-222.144.0.0-222.151.255.255
END_DATA
foreach (@ip_data) {
($cctld,$ip_a,$ip_b) = split(/-/,$_);
if (　判定ルーチン　)｛$ans = $cctld
last;
}
}
print $ans;#この場合は"国名Ｂ"と表示したい

$ip_dataを参照して$ip_sampleの値が$ip_dataのどの行に在るかの判定を行い
$ansへ該当する$ip_deta行の$cctldを返すようにしたいのですが
判定方法でつまずいています。gethostｘｘｘ関数を使えという方向は無しにして
元の$ip_dataを増やさずに行える極力短い判定のルーチンを教示おねがいします
このテの質問はwebプでやれと言われそうな気がするけど質問の内容が
板を選ぶ以前のレベルの自覚があるので敢えてこちらに投下しまふ。

こういうパズル的なのはどこでも答えてもらえそう

my $target = "222.4.0.0";
my @iptable = qw( 国名A-221.184.0.0-221.191.255.255 国名B-221.240.0.0-222.15.255.255 国名C-222.144.0.0-222.151.255.255 );

$target = pack("C"x4, split(/\./, $target));

for(@iptable){
my($country, $from, $to) = split /-/;
$from = pack("C"x4, split(/\./, $from));
$to = pack("C"x4, split(/\./, $to));
if($from le $target && $target le $to){
print "$countryが範囲内でした\n"
}
}

ありがとうございます
早速走らせて見ます


実は････
- foreach (@ip_data) {
+ foreach ($ip_data) {
ですた、阿呆ですんませんです･･･ orz

その2万4千行のデータの状態によっては物凄く処理速度に差が出そうだ。
データを読みながら1回から2万4千回判定するのがいいか、
全部配列に読み込んでおよそ5回判定するのがいいか。

違った。14回？

>>543
web鯖にはまだ置いてませんが手元の環境では問題なく動きました。
答えを教えてもらうと、なるほどなぁと納得行くのですが
その答えをせめて自分で作れるまでにはなりたいです。
ネットでも資料沢山あるけどラクダ本がほしくなったので
日曜日にでも街に探しにｲｯﾃｷﾏｽ
目標は脱ド初心者ｗ

>>545
できれば色々なパターンをベンチ取って一番軽い処理を使いたいですｗ
どうしても重かったらIP国別データを2〜3000行程度に分けて
IPの最初の8ﾋﾞｯﾄを参照して呼び分けてみようかなと思ってますが・・・

>>547
アルゴリズムの勉強したほうがいいよ。
>>545-546でバイナリサーチに気づかないのはかなり重症

>>547

スマソ。書き込む前に送信してもうた・・・

>>547
IPをキー、国名を値にもつハッシュを作り、データベースクラスにtieしてみては？
2万4千行をメモリに持つのはつらいと思う。

ちょっと練習で書いてみた。IPは悩んだ末、強引に１０進数に変換した。

my $data = <<EOF;
A-221.184.0.0-221.191.255.255
B-221.240.0.0-222.15.255.255
C-222.144.0.0-222.151.255.255
EOF
unlink 'test.db';
use Fcntl;
use DB_File;
tie my %db, 'DB_File', 'test.db', O_RDWR|O_CREAT, 0644, $DB_BTREE or die;
foreach(split/\n/, $data) {
my ($country, $from, $to) = split /-/;
for($from, $to) {
s/(\d+)\.(\d+)\.(\d+)\.(\d+)/$1*256**3+$2*256*256+$3*256+$4/e;
}
$db{$from-1} = 'N/A';
$db{$to} = $country;
}
untie %db;
sub find_country {
my $query = shift;
$query =~ s/(\d+)\.(\d+)\.(\d+)\.(\d)/$1*256**3+$2*256*256+$3*256+$4/e;
my $x = tie my %db, 'DB_File', 'test.db', O_RDONLY, 0644, $DB_BTREE or die;
my ($ip, $country) = ($query, 'N/A');
$x->seq($ip, $country, R_CURSOR);
return $country;
}

print find_country('221.239.0.1');

# IPアドレス→32bit整数
$ip = unpack('N', pack('CCCC', split(/\./, $ip)));
これで2倍くらいの速度になった
キャプチャが大きいんかなぁ

2個目のIPアドレス変換部分、最後が\d+じゃなくて\dになってたよ。
桁数が多いから計算ミスかと思ったけど、数字が文字列として尻についてただけなんだね。

>>552
use Socket; して inet_aton() 使ったら?

ベンチしたらinet_aton意外にとてつもなく遅いです。あとは
・「.」でばらすのはsplitより正規表現でキャプチャする方が速い
・4つの10進数から32bit整数にするのは、シフト>掛け算>pack-unpackの順で速い。
552の言うのとは逆の結果になったわけだがなんでかね?

Benchmark: running inet_aton, multiple_re, shift_re, unpack_re, unpack_split for at least 3 CPU seconds...
inet_aton: 5 wallclock secs ( 1.62 usr + 1.46 sys = 3.08 CPU) @ 425.97/s (n=1312)
multiple_re: 7 wallclock secs ( 3.26 usr + 0.00 sys = 3.26 CPU) @ 229803.99/s (n=749161)
shift_re: 3 wallclock secs ( 3.08 usr + 0.03 sys = 3.11 CPU) @ 274049.84/s (n=852295)
unpack_re: 3 wallclock secs ( 3.10 usr + 0.00 sys = 3.10 CPU) @ 183073.87/s (n=567529)
unpack_split: 4 wallclock secs ( 3.13 usr + 0.00 sys = 3.13 CPU) @ 119672.52/s (n=374575)

use Benchmark;
use Socket qw(inet_aton);
my $ip_a = 100.100.100.100;

timethese(undef,
{
unpack_split => sub {
my $ip = unpack('N', pack('CCCC', split(/\./, $ip_a)));
},
unpack_re => sub {
$ip_a =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
my $ip = unpack('N', pack('CCCC', $1, $2, $3, $4));
},
multiple_re => sub {
$ip_a =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
my $ip = $1*256*256*256 + $2*256*256 + $3*256 + $4;
},
shift_re => sub {
$ip_a =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
my $ip = $1 << 24 + $2 << 16 + $3 << 8 + $4;
},
inet_aton => sub {
my $ip = inet_aton($ip_a);
},
}
);

すまん、どうにも直観と反する結果なのでさらに調べていたらなんのことはない
my $ip_a = 100.100.100.100;

になっていたorz... もちろん正しくは

my $ip_a = '100.100.100.100';

なのでベンチ取り直した。

Benchmark: running inet_aton, multiple_re, shift_re, unpack_re, unpack_split for at least 3 CPU seconds...
inet_aton: 3 wallclock secs ( 3.16 usr + 0.00 sys = 3.16 CPU) @ 267949.37/s (n=846720)
multiple_re: 3 wallclock secs ( 3.16 usr + 0.00 sys = 3.16 CPU) @ 69144.94/s (n=218498)
shift_re: 4 wallclock secs ( 3.11 usr + 0.00 sys = 3.11 CPU) @ 74248.87/s (n=230914)
unpack_re: 3 wallclock secs ( 3.21 usr + 0.00 sys = 3.21 CPU) @ 68071.03/s (n=218508)
unpack_split: 2 wallclock secs ( 3.13 usr + 0.00 sys = 3.13 CPU) @ 95474.76/s (n=298836)

まとめ:

inet_atonはやっぱり速いので、自分で書くのはやめよう。

v文字列以外では
・ inet_atonはpackしたIPアドレス("100.100.100.100"なら"dddd")を返すのに、他は整数(1684300900)を算出している。
・ "+"演算子は"<<"演算子より優先度が高いため($1 << 24)とカッコで括らなければならない。

一応 sub getRandIPString { join '.', int rand 256, int rand 256, int rand 256, int rand 256; } といったものを用意して
全てバイナリ文字列を出力するコードにしてからベンチ取ったけど、inet_atonが常に1位だった。

今更だけど、後で直接比較可能にするための前処理として保存しとけば速度関係無かったね。

Mac OS XでPerlを使っています。
Macで作成したテキストを処理したいのですが、改行コードがCRになるのでうまく処理できません。
LFでないため、全て1行として認識されてしまいます。

標準入力を常にLFとして読み込んだ後、それに対してマッチや置換を行いたいのです。
以下のように書いてみましたけどダメでした。

while (<>) {
s/\x0D\x0A|\x0D|\x0A/\x0A/g;
if (/aaa/) {
print;
}
}

出力されたデータはLFになりましたが、マッチはうまくいきませんでした。
何かいいやり方はないものでしょうか。

求めてるのは<>使う前の $/ = "\x0D"; か /aaa/m あたりかも

>559さん

入力時の区切り文字をCRに決めてやればいいんですね。
解決しました。ありがとうございました。

すいません。行のナンバリングをリクエストしてもよろしいでしょうか。

あいうえお（段落1）
かきくけこ（段落2）
さしすせそ（段落3）

たちつてと（段落4）
なにぬねの（段落5）
はひふへほ（段落6）

という文章があって、これを、

1：あいうえお（段落1）
2：かきくけこ（段落2）
3：さしすせそ（段落3）

1：たちつてと（段落4）
2：なにぬねの（段落5）
3：はひふへほ（段落6）

のように空行をはさんで新たにナンバリングを開始したいのですが方法が思い浮かびません。

言いたいことが分からんが新たにナンバリングを開始したいところで
ナンバリング用の変数を初期化して空行を出力するだけじゃないのか？

>>561は、単純にすべての行に通し番号でナンバリングするプログラムは作れるのか？

>563

あっ、はい。

my $i = 0;

while (<STDIN>) {

if (/^./) {
print ++$i;
print ": ";
print;

}

}
ちょっと冗長ですけど。

うーん、、、自分で作りたい？それとも誰かにサクッと作って欲しい？

>>564
そこまでかけるなら
else で $i = 0; を書けないか?

空行が来たらカウントをリセットする、というと、こんな感じ?

$n = 1;
while (<>) {
　$n = 1 if (/^\s*$/
　print "$n: $_";
　$n++;
}

あ、閉括弧とか忘れた。まあいいや。脳内で修正してくれ。

>566

elseを使っても結果が変わらないんです。
マッチがヘボいんでしょうか。

>567

実行させると入力がぶっとんでしまいました…

>565

いろいろ試してみたのですが、自分の力ではムリっぽいです…
あつかましいとは承知していますが、作っていただくと助かります。

出来てしまいました！

my $i = 0;
while (<STDIN>) {
　if (/^..+/) {
　print ++$i;
　print ": ";
　print;
　} else {
　$i = 0;
　print;
　}
}

else文で「my $i = 0;」にしていたのがまずかったようで、
空行になっても$iが初期化されなかったみたいです。
レス下さったみなさん、ありがとうございました。
おさわがせしました。
私ってPerlの才能ないのかな…

>>570
完成おめ！
才能がどうかは知らないけど、結局経験じゃないですかね？
俺も本スレで叩かれたりしながら勉強してますｗ

一応俺が用意してたスクリプト貼っておきます。。。
use strict;
my $c = 1;
open IN, 'filename';
while (<IN>) {
    (/^$/) ? $c = 1 : print $c++ . ':';
    print;
}
close IN;

>571

ありがとうございます。
自分のはだいぶ冗長だと思うので、用意していただいたスクリプトを参考にさせていただきます。
今自分の書いたものを見直してみると、if (/^./)でいいですよね...
恥ずかしい...

>>570
myはローカル変数の宣言。単なる代入では無いよ。
myを使うと、同名の新たな一時変数を作る事になる。
んで、詳しい条件は忘れたが、ブロック抜ける時とかに消える。

長いコードになると
「この変数名って他で使われて無かったっけ…？」
ってなるけど、my使えばそんな心配が減るワケ。

>>558

>>560では解決しちゃったみたいだけど、これ俺も知りたい。
コマンドラインから入力されたテキストの改行コードをLFに統一、
という前処理をしてからwhileループ処理をかますってできるのかな？
あんまりセパレータとか変えたくないんで。

>>574
>セパレータとか変えたくない

なんで？

>575

セパレータも一文字として認識されてしまわない？
回避する方法があればいいんだけど。

認識できるから区切れるんだが。
いまいち言いたいことが分からん。

メタキャラ「.」って改行を除く一文字にマッチするじゃん。
でも「.」もCRにマッチしちゃわね？
LF読み込むときと処理が変わっちゃうからイライラすんだよね。

自分の都合に合わせてセパレーター変えるなり置換するなりすりゃいいじゃん。

あーいう変数ってlocal出来ないっけ？

whileで読み込む前に処理しとくって、
できないってことでおｋ？

質問は質問スレ行け

Win32::GUI::ListView ソートメソッドないじゃん・・・orz

　た・・・す・・・け・・・て・・・・

りすとびゅーか...
なにもかもがな・・つ・・か・・し・・ぃ・・

一瞬、不治痛の電子帳票ソフトかと思った

初めまして。

浅知恵で掲示板の改造を試みています。
オートリンク機能付き掲示板に記事修正機能を追加したのですが、
記事修正をするたびに、文中にあるリンク先が
<A href=http://www.a.b.c target=_blank><A HREF=http://www.a.b.c target=_blank>
http://www.a.b.c</A></A>
と、タグが無制限に追加されていきます。

そこでお願いしたいのは、
記事修正時にファイルに保存されているデータ
----------------------------------------------
<A HREF=http://www.a.b.c target=_blank>
http://www.a.b.c</A>
----------------------------------------------
を一端
----------------------------------------------
http://www.a.b.c
----------------------------------------------
というデータに戻すサブルーチンを作成したいのですが、
行き詰まっています。
よろしくお願いします。

オートリンク機能のスクリプトは以下の通りです。
***************************************************************
#オートリンク
sub auto_link {
my($msg) = $_[0];
$msg =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1<A HREF=$2 target=_blank>$2<\/A>/g;
return $msg;
}

↑　ありゃ、文字がおかしい。

全角にしてありますが、Aタグです。
http://www.a.b.c　の後ろは、＜／Ａ＞

そういう時は表示時にオートリンクを適用すればいい。
保存時にいじっちゃうと後でいじりにくくなるというのは定説。
ファイル構造上、改行の置換とかは仕方無いと思うけどさ。

>>586

ようするに、すでに<A>タグ化されている部分を除外すればいいわけだな？

ああ、ごめん。>>586にいての>>588の意見を読んでなかった。
確かに保存時は生データのまま記録し置いて、閲覧時に
http:なんた

>>590
途中で送信しちゃった。

保存時は生で。閲覧時は「http:なんたら」の条件で抽出→<A>タグ化のほうが効率的だね。

みなさん、ありがとうございました。
発想の転換ですね。
私の堅い頭では思いつきませんでした。

保存時ではなく、表示時にオートリンクを適用でうまくいきました。
ありがとうございました。

俺は全く解らないので、申し訳ないけど誰かに頼みたいorz
ボタンを押したらカウントが増えるシンプルなシステムを作って欲しいです。

どこにでもあると思うが…

>>593

use CGI;
my $cgi=new CGI;
my $n=$cgi->param('n')+1;
print $cgi->header(-charset=>'Shift_JIS'),
$cgi->start_html(-lang=>'ja',-encoding=>'Shift_JIS',-title=>'simple count'),
$cgi->a({href=>"$ENV{'SCRIPT_NAME'}?n=$n"},$n),
$cgi->end_html;

>>593

<?php
if (! $HTTP_COOKIE_VARS{'Num'}) {
$start=0; $i=1; setcookie("Num",$i,time()+30);
} else {
$i=$HTTP_COOKIE_VARS{'Num'}+1;
setcookie("Num",$i,time()+30);
}
echo $start.$HTTP_COOKIE_VARS{'Num'}."<br>\n";
echo "<form method=POST action=><input type=submit value=count_up></form>\n";
?>

>>593
<input type="button" value="0" onclick="this.value++">

どんどん簡易な物になってくな

つーかスレタイに反してPerlですらなくなってるな
このスレ自体がアレなのは確かだが

待て待て、Web物とは一言も言ってないぞ？

# CUI
use Term::ReadKey;
binmode STDIN;
ReadMode 3;
print my $count = 0;
print "\r", ++$count while (defined ReadKey 0);
ReadMode 0;

# GUI(Perl/Tk)版
use Tk;
my $count = 0;
my $mw = MainWindow->new();
my $label = $mw->Label(-text => $count)->pack();
$mw->Button(
-text => 'Count up',
-command => sub { $label->configure(-text => ++$count) },
)->pack();
MainLoop;

Term::ReadKey を入れてないおいらが来ましたよ。

#!/usr/bin/env perl
print my $i = 0 ; $i ++ ;
system "stty -echo" ;
print "¥e[1K" . $i ++ while <STDIN> ;
system "stty echo" ;

このスクリプト ( hoge.pl )、perlcc が通ったのには笑った。@5.6.6
perlcc -o counter hoge.pl

なんで笑えるのかわからんが、もっと短くしてみた。
perl -e '`stty cbreak -echo`;print $i++,"\r" while getc'

cbreakはサポートしてないものもあるよ

>>602
いや system 関数ってみるからにコンパイルの時コケそうじゃないですか。

頭が混乱してきた。
ETRADEのポートフォリオのページを取得するスクリプトつくって。

6時間考えたけど、いっぱいいっぱい。だめぽ

既製品を探すという作業を飛ばしたようだね。

>>605 だけど。
やっとできたよ。

しばらく　POSTとGETの仕組みと　INPUTタブの仕組みを
忘れてた。

inputタブだってよ

ディレクトリ内にある.jpgファイルを全て
1.jpg, 2.jpg, 3.jpg, ... というように連番のファイル名に変換するプログラムを
つくって頂けませんか。
そのディレクトリには.jpgファイルしか置いてません。（全部変換する)
もともとのファイル名は、*****.jpg もしくは ******.jpg (*は数字)
という形です。
こういうプログラムを作るのにperlが適しているのかどうかはわからないのですが、
他に作成依頼できそうなスレがみつからなかったので。

お願いします。

folderの中にある複数の圧縮ファイル(zip, rar)の中のファイルの情報の一覧（text fileでOK）
を作ってくれるscriptがほしいです。

>>609
perl -e'my $i = 1; foreach(glob("*.jpg")) { rename $_, "$i.jpg"; $i ++;}'
動くかどうかはしらん

>611
できてるぽいです！
ありがとうございます。

アクセスしてきたPCのポートスキャンをするcgi
目的：自分のPCのセキュリティーチェックをしたいので

嘘付け

最初はIPアドレスを入力して入力されたIPをもつPCのポートスキャンができるようにとおもったのですが、
>>614さんのように邪推される方がいると思ったのでアクセスしてきたPCのポートスキャンということにしました。
さらにいうなら、IDパスワード認証をしてそのチェックを通過した人だけセキュリティーチェックできるようにお願いします。
もっともIDパスワードをさらしておいて他人のPCのポートスキャンができることも懸念されますが・・・・。。

>>610
while (<*>) {
　if ((/\.zip$/i) or (/\.rar$/i)) {
　　open(AAA, "unrar l $_ |") || die "err";
　　$list = <AAA>;
　　close(AAA);
　}
}
こんなもんで、よろしいんじゃないですか？

perl -e '`stty cbreak -echo`;print $i++,"\r" while getc'

LINUXのCRONで動かしているPerlがあるんだが、自分自身２重起動を阻止したい。
リクエストお願いします。

>>618
例えばlockファイルを使う。perldoc -q lock

use Fcntl qw(:DEFAULT :flock);

sysopen(LCK, "/tmp/lockfile", O_WRONLY|O_CREAT) or die "open: $!\n";
flock(LCK, LOCK_EX|LOCK_NB) or die "flock: $!\n";

sleep 100;

なんじゃそりゃ

5分経過したら再認証のページに飛ぶものを作って下さい。
お願いします。。。

>>621
仕様がはっきりしなさ過ぎて無理

>622
タイムアウト処理だけでも無理ですか?

同じ学校のやつか？

964 名前：デフォルトの名無しさん 投稿日：2006/09/07(木) 21:36:27
質問です!
ログインして10分経過後、再認証を行なうプログラムについて教えて下さい。
学校の課題なんですがさっぱり分りません。。。

マルチかよ

>>623
sleep(300);

>>621

　鯖に「ID=************が何時何分何秒にログインした」ってファイルを
作っておいて、その人がCGIにアクセスするたびに最終ログイン時刻を
チェックする。規定時間をオーバーしていると、ログイン画面に飛ばす。

って感じのやつはダメ？

そーいや前に、タイムアウトの処理を
HTMLのタグでやってるの見たことある

ブラウザ側で簡単に回避されるっての…ｗ

ﾏﾙﾁにﾏｼﾞﾚｽ　ｶｺﾜﾙｲ

質問させてください

「開始」と「終了」の間に入っている文字列をリンクアドレスにするにはどうすればいいですか？

たとえば$STR="開始test.html終了";　とあったとき
出力結果が

<a href=test.html>test.html</a>になるようにしたいんです。


$START="開始";
$END="終了";

2chに書き込むスクリプトってどうやるんですか？

2ちゃんねる2GETスクリプトの改良おねがいします
http://pc8.2ch.net/test/read.cgi/tech/1161552012/

Perlでつくってください

>>630
正規表現で一発やん

>>634
ごめんなさい、わからないんです。
とりあえず、ここまでは出来ました
「開始」と「終了」に挟まれる$1を抽出した後、その$1をURL形式に変えてアドレスにして置き換えていきたいんです。

例えば
$in{'data'}="開始なにか終了hogehogehoge開始てすと終了"だったとしたら
これが

$in{'data'}="<a href=http://hoge.com/hoge.cgi?keyword=%42%28%39>なにか</a>hogehogehoge<a href=http://hoge.com/hoge.cgi?keyword=%32%86%26>てすと</a>"

みたいな形式に置き換えたいんです


use URI::Escape;
$START="開始";
$END="終了";
$SEARCHADD="http://hoge.com/hoge.cgi?keyword=";

while ($in{'data'}=~ m/$START(.*)$END/g) {
$output = $1;
$urikeyoutput = uri_escape($output);
$in{'data'} =~ s/$START$output$END/<a href=$SEARCHADD$urikeyoutput>$output<\/a/g;
}

>>635
> while ($in{'data'}=~ m/$START(.*)$END/g) {

これを

while ($in{'data'}=~ m/$START(.*?)$END/g) {

ってすりゃいいんじゃないか?
(.* じゃなくて .*? ってことね)

>>636
変えてみましたけど、無理でした
while ($in{'data'}=~ m/$START(.*?)$END/g) {　の時点で拾ってきてくれてないみたいです
書き方おかしいですか？

>>637
while ($in{'data'}=~ m/$START(.*)$END/g) { ... の中で更に
$in{'data'} =~ s/$START$output$END/ ... なんてしてるから
マッチ開始位置がおかしな事になる。下の一文で済む。

$in{'data'} =~ s{\Q$START\E(.*?)\Q$END\E} {
　　my $url = $1;
　　my $query = uri_escape($url);
　　qq|<a href="$SEARCHADD$query">$url</a>|;
}eg;

>>638
ご回答ありがとうございます。
その方法で問題なく出来ましたが

開始、終了のペアが２つ以上でてきた場合エラーが発生します。

$in{'data'} ="開始テスト１終了開始テスト２終了";
だったとき

最初の開始から　最後の終了までを１つだと思っているみたいです

>>639
大方 (.*?) を (.*) と写し間違えているんだろう。

>>640

>>638さんのものを、そのままコピペして使ってるのですが
>>639に書いた症状が出ます

http://infosys.gsid.nagoya-u.ac.jp/~ohna/re/intro2re2.html

データが壊れないカウンタを20行で作ってみてください

なんのカウンタだよアホ

ロックファイルを作りながら
カウントしていくだけのプログラム

だから何をカウントするんだよ。
CGIなら板違いだ

++$count;

完成！

画像の横幅を習得するにはどうすればいいんですか？

＞＞６４８
ｓｅａｒｃｈ．ｃｐａｎ．ｏｒｇ

すみませんが、自己解決しました。

解答が出たあとに自己解決かｗ

>>643
これでいいんか？

open my $fh, ">>count.dat";
print $fh "\n";
close $fh;
print "Content-Type: text/plain\n\n";
print -s "count.dat";

>>652
壊れないけど取りこぼすな。でも「壊れない」条件は満たしてるからいいのか。
軽いカウンタならutimes使って作るといいよ。inodeしか触らない。

>>653
utimes?
utimeじゃなくて?

ていうかどちらにしろファイルのタイムスタンプ変更するだけの関数だから
カウンタにはできないのでは?

>>654
タイムスタンプは time_t 型の数値を保存できる場所でな。

>>655
あ。なるほど。タイムスタンプを無理矢理カウンタとして使うのか。
たしかにできるけど、強引な方法だな・・・。

それどうやって排他するん？

>>657
普通にflockなりなんなりお好きな方法で。

@CSV = <INCSV>;
$line_amount = @CSV + 1;
$lines = do { local $/; <INTEXT> };
@Aitems = map {(split '\t', $_, 2)[0]} @CSV;
@Bitems = map {(split '\t', $_, 2)[1]} @CSV;
@A = @Aitems;
@B = @Bitems;
chomp (@B);
for ($i = 0; $i < $line_amount; $i++){
$lines =~ s/$A[$i]/$B[$i]/g;
}
print OUT $lines;
-------------
タブ区切りで、検索文字列[TAB]置換文字列
というテキストを作って、それを読み込んで置換するスクリプトなのですが、
一応動作はするものの、置換文字列に $1, $2 など後方参照の変数がそのまま
文字列として出てきてしまいます。これを展開できるようにするには
どうすればいいのでしょうか。

/e

>660
だめでした。
$lines =~ s/$A[$i]/$B[$i]/ge;

置換失敗、（$1）という文字列が出ます
s/「(.*?)」/（$1）/ge;

こういうのは置換成功(eなしで問題なし)
s/(あ)\1/嗚呼/g;

/ee

横一列に並んだ単語を縦一列に直すスクリプトをリクしたいっす


↓ 単語が横一列になっているファイルを（ファイル名は例えば sample1.txt ）
globe apple captain delicate baseball e-mail family

↓こんな感じに縦列に並べ変えたい
globe
apple
captain
delicate
baseball
e-mail
family

エディタで空白を改行に置換したらいいやん

あ、そっかｗｗｗｗ

sed 's/ /\n/g' sample1.txt > sample2.txt
でできましたｗ

my (%data);
my $num1 = 3;
my $num2 = 4;
my $moji =tetra;

$data{$moji} = [ $num1, $num2 ];

print("%d",$data{$moji});


perl 実行
%dARRAY(0x85a7c28

何かよくわからない結果になってしまったのですが・・・

こっちで聞いても同じだぞ

掲示板（KENT e-pad)を10分毎に監視して
新規の書き込みがあった場合、内容をメールで送るスクリプト作って下さい。

>>668
じゃあ雛型だけ。あとは getbbs() と sendmail() を作れば完成だ。がんばれ。

#!/usr/bin/perl -w

use strict;

my $olddata;
for (;;) {
　# 掲示板の内容を取得する。
　my $data = getbbs();
　if (defined($olddata) && $data ne $olddata) {
　　# メールを送信する。
　　sendmail($data);
　}
　$olddata = $data;
　sleep 60 * 10;
}

ぎゃふん！

sendmail のサンプル

sub sendmail {
　my $data = shift;
　open(F, '| /usr/lib/sendmail -t >/dev/null 2>&1') or die;
　print F "From: hoge\@fuga.com\n";
　print F "To: moga\@mugu.com\n";
　print F "MIME-Version: 1.0\n";
　print F "Content-Type: text/html\n";
　print F "\n";
　print F $data;
　close(F);
}

但し /usr/lib/sendmail がなければならない。
(つまりこれは主に UNIX 系 OS 向け。Windows なら Cygwin 環境で動くかも)。

>>669>>671
有難う。
getbbs()
も雛形お願いします。

getbbs のサンプル

use LWP::Simple; # これはプログラムの最初に書く。

sub getbbs {
　my $url = 'http://...' # これは実際のURLにする。
　return get($url);
}

ていうかこんなサブルーチン使わないでそのまま get() やっちゃえばいいかな。

上記のように LWP::Simple を使って串を通したい場合は環境変数の http_proxy
に串のURLをセットしておく ( proxy.hoge.com のポート 8080 の場合は
http_proxy に http://proxy.hoge.com:8080/ をセットしておくか
perl プログラムの中で $ENV{'http_proxy'} = 'http://proxy.hoge.com:8080/';
をやっておく)。
LWP::UserAgent を使って自分で色々する場合は $ua->proxy(...) のような
設定方法も使える。

>>673
ありがとうございます。
試してみます。

組織名　人名　番号（英字3つの後に数字7つ）
組織名　人名　番号（英字3つの後に数字7つ）
という風に並んでるファイルから
番号だけを取り出して
07.番号（英字3つの後に数字7つ）
と書き換えたいのですがお願いします

また、自分でもこういう丸投げはやっぱりよくないとは思うのでもし
「そんなのここ見りゃかいてあるから」みたいなサイトがあれば教えてください

「正規表現」は知ってる？
各行の最後の10文字の前に「07.」を割り込ませる、って考えでどうだ？

>>666
printfの間違い。
$data{$moji}は配列へのリファレンスになっているんだから、
$data{$moji}[0]なり$data{$moji}[1]なりにしないとそうなる罠。

use Kakiko::Test;

>>675
perl -ne 'if(/\s+(\w{3}\d{7})\s*$/){print "07.$1\n"}' hoge.txt

FORMで受け取った文字列をCSVファイルから検索して表示させるスクリプト下さい

grep

「1からnまでの乱数をn個発生させ、小さい方から並べるプログラム」を作成する。
nの値をさまざまに変えて実行時間を計測せよ。
クイックソートの実行時間が理論値O(n log2 n) となるかどうか検証せよ。

このデータと解析結果、検証の結果をレポートで提出せよ。

>>681
便乗でスマンがFORMからのデータの受け取りを
cgi-lib.plに頼らない為のヒントを教えてほしい。

getならurl末尾、postなら標準入力
意地悪じゃなく調べればいくらでもあると思うんだが…

CGI.pm使えよ

>>684
CGI, 環境変数, あたりでぐぐれ

>>685-687
ありがとね。
参考書に「難しいからcgi-lib.pl使え」ってあったから
勝手にその事については載ってないと思った。
まぁ習い始めたばかりだけど、調べたりなかったのは反省してる　orz

１分に一度指定板のスレッド一覧を取得して更新があれば差分だけダウンロードして元のファイルに付け足して保存する。
ってのをPerlで作ってくれ。
いや、作ろうとしたんだよ。でも2chのページにアクセスすると403がでてな。

>>689
オイスター作戦でぐぐれ。

つまりMonazilla MLに参加してるツールに成りすませばいいってこと？
それとも不可能ってことかな？

リクです。
youtube内にアップされている動画のタグ情報を引っ張って来れるプログラムをお願いします。

#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;

my $url = shift @ARGV;

my $ua = LWP::UserAgent->new();
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1);');


my @tags = &getTag($url);
print join(",", @tags), "\n";

sub getTag {
    my ($url) = @_;
    my @tags;
    my $content = $ua->get($url)->content;
    while($content =~ /href=\"\/results\?search_query=(.+?)\"/g){
push(@tags, $1);
    }
    return(@tags);
}

ここまで行ってるのですが、入力する動画URLの取得を自動化したいんです。

http://　から始まるIPとホストが書いてあるアドレスを抽出したい場合の
ＩＰとホストの表現を教えてください。

ttp://www.din.or.jp/~ohzaki/perl.htm#httpURL
あるいは
use Regexp::Common; して $RE{URI}{HTTP}

>>694
ありがとうございます

HP等の日記にパスワードがかかっていた場合、
そのパスワードを解析してくれるソフト作ってください。。。

不正アクセス禁止法違反。

すべてのパスワードを解ける解法があったとしても
すべてのパスワードを解けるプログラムやスクリプトは絶対にない

>>698
時間を掛ければ何でも解けるのでは?
但し何万年とか掛かるかも知れないが。

>>1

微分や積分するプログラムってperlで作れる？

数値微分/数値積分なら公式は山ほどあるだろ。

マセマティカ並の数式処理能力が欲しければ数学科大学院へでも池

Win NTでデフォルトのプリンター名を取得したいのですが。

重機ネット上にあるDBから
氏名と電話番号を一覧表示するスクリプトを作ってください

>>703
まず重機ネットのDBから氏名、電話番号の入ったデータをCSV形式で貰ってきます。
その後次のスクリプトを動かしてください。

#!/usr/bin/perl -w

use strict;

system('cat ファイル名');

以上です。

重機ネット上にあるDBに対してCRUDするスクリプトを作ってください。

一休さんかよ

とんち比べですな。

数字を月の名前に変換するコードができました！！

@Month = ("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");

sub mmm {
return $Month[(shift)-1];
}

@Month を切り替えればいろいろな名前に変換できると思います。
@Month = ("JAN.", "FEB.", ……
@Month = ("睦月", "如月", ……

釣れまsk?

どなたか、ナンプレを解くスクリプト作って下さいませんか？

sudoku solver でググれ

>>708
perl -MDate::Manip -e 'print UnixDate(ParseDate("today"),"%B"),"\n";'

利点としては：
・ハッシュを使うコードよりも軽量・高速。
・「01」とか、ゼロ付きの数字にも対応。

欠点としては：
・逆引きができない。

というわけで、"JAN.."とか"睦月"から数字への変換と、数字から名前への変換、
両方ともできる粋なコードをおながいします。

質問箱に書き込んだのですが、スレタイからするとこちらの方がよいかもと思い、書き込ませていただきます。
マルチポストをお許し下さい。

perlはまるっきりの初心者です。どなたかお知恵を貸して下さい。
2つのファイル a.txt と b.txt を比較して、条件にあった行を抽出、出力するスクリプトを作りたいのです。

具体的には、
[a.txt]
ID, field1, field2
1, 5.8, 7.3
2, 6.3, 8.2
3, 3.2, 4.1
4, 4.8, 4.0
5, 8.3, 10.2

[b.txt]
ID, field1, field2
1, 6.8, 7.7
3, 4.3, 5.5
4, 5.9, 4.9

というファイルがあったとき、b.txt のIDに数値が存在する行だけを a.txt から抽出して a2.txt として保存したいのです。

[a2.txt]
ID, field1, field2
1, 5.8, 7.3
3, 3.2, 4.1
4, 4.8, 4.0

と言った具合にです。よろしくお願いします。

自己レスです。
質問箱の方で回答を頂きました。マルチポスト失礼しました。
あ、でも他のやり方もあるぞ、というのがあったら教えて下さい。勉強の題材にさせていただきます。

#!/usr/bin/perl
use strict;
use warnings;
open my $a, '<', 'a.txt' or die;
open my $b, '<', 'b.txt' or die;
my %ids = map { $_ => 1 } map { (split /,/)[0] } <$b>;
while (<$a>) {
my $id = (split /,/)[0];
print if $ids{$id};
}

>>715
$aと$bはmyの対象外の特殊な変数だからサンプルコードだとしても変数として使うのは止めたほうが良い。

maildrop によって転送されたメールが画像添付ファイルだった場合に、添付画像だけを除去してくれる perl/php スクリプト

...ってスグに書けますスか？

はい。

>>718
くれくれで申し訳ないのですが、どうか作っては下さいませんでしょうか...？

>>719
どのくらい払ってくれる？

>>720
相場はいかほど？

とりあえず工数の見積もりに1万5千円ほどいただきます。

>>722
なんと...見積もりだけでそんなにかかるとわ。
もう少し安くならないの？

今なら、なんと、お見積もりが、ご奉仕価格の 1 万 4999 円！

このスレ、突然廃れたんだな。直前まで賑わってたみたいだが、自作自演でもやってたか？

保守？

ほ

Amazonのマーケットプレイス画面をgetしたいのですが、
http://www.amazon.co.jp/gp/seller-account/management/your-account.html
にPerlでアクセスすることが出来ません。
認証とかが必要なのでしょうか・・・・・・・。

そりゃあ、自分のアカウントデータのやりとりは必要だろう

2chの特定のスレURLを任意で指定し、
すべての投稿から、「すでに投稿された文面が再度登場していたら、
その数だけレス番付きで抽出する」
というものはできないでしょうか。

要は何がやりたいのかと言うと、
「スレッドがコピペ投稿だらけ」になっており、
レス削除要請を行いたいのです。
ただ、そのコピペの数が尋常じゃないので抽出が困難なのです。
「文面の95%が一致していたらコピペとみなす」機構が嬉しいです。

95%で、無関係の文章が巻き込まれたら嫌だなぁ。

って話はとりあえず置いといて、検索してたら
String::Trigram とかいうモジュールがヒットした。
この辺使えば作れるのかな？

あとはスパムフィルタ関連の資料か。
URLの有無で判定するタイプもあるらしいから
そういうタイプのフィルタは参考にはならないかも知れないけど。

コピペ連投だと行頭の空白とかが混じることがあるから、
文字の先頭から末尾までが一致していたらアウト、という判定でいいんじゃね。
そういうの欲しいならRubyスレで頼むほうが早いかもよ。

指定したファイル以外を消去する作って！

>733
それだけじゃ何をどうすれば良いのか分からんな。
「カレントディレクトリ内にある指定したファイル以外を消去」だとすれば

perl -e"for (glob '*'){$_ eq $ARGV[0] or unlink $_}" ファイル名

で出来るが、サブディレクトリは多分掘らない。

カレントディレクトリだけでOKです。
ありがとう　
今はこんな感じで改造しています。
いろいろしないといけないんですが
仮に指定したファイルがカレントディレクトリになかった場合とか
消去を確認するための方法とか　ファイルを複数指定したりとか

perl のコマンドに詳しい本って
なにかありますかねー(ネットでも調べていますが)

#!/usr/bin/perl
print "指定ファイルは？";
$file = <STDIN>;
for (glob '*'){$_ eq $ARGV[0] or unlink $_} $file

perl の関数一覧なら perlfunc ですぐ見れる

>735
つーかマテ、その改造コード間違ってるんじゃねーか。
$file が全く関係ないところに書かれてる。

そのコードじゃカレントディレクトリ全部削除されるぞ。
$file = <STDIN>; と書くんだったら、
for (glob '*') { $_ eq $file or unlink $_ } にしなきゃ。

$ARGV[0] はコマンドラインからの引数な。
>734 はファイル名を引数として渡してる。

>>737
あー　ミスでしたか
コマンドとか引数とか覚えないといけないところが
まだまだありますな
>>736
perlの関数　ありがとう　　
　

任意のフォルダに入ってるexeファイルを起動するスクリプトがほしいです。

>739
その「任意のフォルダ」はコマンド引数で指定すれば良いのか？
「任意のフォルダ」に.exeファイルが複数入ってる場合はどうすれば良いんだ？

ActivePerlで
(擬似)子プロセスにてある条件を満たすと(sleep5とかでもなんでもいい)、親プロセスのTKウィジェットに反映する(リストボックスに一行追加とか)するスクリプトください

ttp://www.linkrr.com/
みたいな複数のURLアドレスを一気に開くことのできるスクリプトが欲しいです

過疎ってるなー
DBD::CSV使って、
execsql.pl -noheader "SELECT T1.ROW1, T2.ROW3 FROM temp1.txt T1 temp2.txt T2
WHERE T1.ROW1 = T2.ROW2 AND T1.ROW2 = 'abc';" > result.txt
みたいに使えるスクリプト誰か作って。

間違えた
col1 col2 か
SQL初心者な物で

今日も perl でエロ画像収集！
明日も perl でエロ画像収集！
エロ画像収集言語 perl 万歳！

>>743だけど、DBD::CSVにバグがあった
やってらんねー
結局できたけど

ここでperlをPHPに変換とかしてくれる？

ばっちこい！

600行くらいあるんだけど・・・

情報後出しするやつは面倒だからお断りします

偶数行と奇数行を入れ替えるスクリプトをお願いします。

出力例）
$cat　test.dat
１
２
３
４
５
６

スクリプト実行後
$cat　test.dat
２
１
４
３
６
５

perl -pe 'print scalar <>'

my $old ;
while (<>){
if ( $.%2 != 0 ){ $old = $_ ; next ; }
print $_, $old ;
undef $old ;
}
if ( defined $old ){ print "odd\n", $old ; }

list.txtファイルに検索をかけたいキーワードを記入し
そのリストのキーワードを元にgrepみたいな動作をするスクリプト

listファイルの中身
$cat　list.txt
aho
baka
test

検索をかけたいファイル（test.txt）の中身
$cat　test.txt
aho　1
baka　2
manuke　3
test　4

実行結果
$./grep.pl
aho　1
baka　2
test　4

よろしくお願いします。

#!/usr/bin/perl
sub slurp {
    local ($/, @ARGV) = (wantarray ? $/ : undef, @_);
    return <ARGV>;
}
my $keyword_file = "list.txt";
my $target_file = "test.txt";
my @keywords = slurp($keyword_file);
my $regex = join "|", map { chomp; "\Q$_\E" } @keywords;
$regex = qr/$regex/;
open my $fh, "<", $target_file;
for my $line (<$fh>) {
    print $line if $line =~ $regex;
}
close $fh;

>>755 クールで惚れた

>>755
ありがとうございました！

朝っぱらからコードゴルフ
% perl -lne ' print if $t{ ( split )[0] } ++' list.txt test.txt
ま、区切り文字が全角スペースだと動かんのだがね。全角スペースに拘るなら
% perl -lne ' print if $t{ (/^(\w+)/)[0] } ++' list.txt test.txt

dmain.cpp
Note: including file: d:/projects/game/include\common.h
Note: including file: d:/projects/game/include\product.h
Note: including file: d:/projects/etc/psdk/include\WindowsX.h
Note: including file: d:/projects/etc/psdk/include\windows.h

こういうファイルを

dmain.obj: \
/cygdrive/d/projects/game/include/common.h \
/cygdrive/d/projects/game/include/product.h \
/cygdrive/d/projects/etc/psdk/include/WindowsX.h \
/cygdrive/d/projects/etc/psdk/include/windows.h \
dmain.cpp

こんな風にするスクリプトってどうやるの？

759は汎用性が必要だから、ファイル名とかドライブレターとかも関係なく動かせるのをお願いします

マルチしといて、動かなかったら注文付けんの？
win の人だったらワンライナーはシングルクォートの代りにダブルクォートにすれば良いよ。

入力フォームに入力して送信を押したら
hogehoge.cgi?入力された言葉

というように表示してくれるスクリプトを作ってほしいのですが
どなたか作ってもらえませんか？

print "Content-type: text/html �n�n";
print "hogehoge.cgi?入力された言葉";

> Perlでリクに答えるスクリプトを作るスレ
リクといえば、大石 りく。赤穂藩家老大石内蔵助良雄の妻。
そろそろ討ち入りの時期です。
Perlでリクにどうやって応えられるのか、スレが立って足掛け4年。
そろそろ、リクを喜ばしてみれ。

>>764
猛烈に面白くない

椎名りくは引退したの？

ほすほす

保守がてら

いつまでたっても彼女ができないのですが、
バレンタインデーまでに(３次元の)彼女ができるスクリプトを作ってもらえませんか

３次元とか言ってる時点でお前には彼女なんて出来ないw

>>768
バカだな。バレンタインデーまでにじゃなくてさ
バレンタインデー当日にチョコと一緒に告白される方が絶対いいだろ

>>768
じゃあそういう感じのスクリプトをお願いします！
できれば、彼女ができる日付を選べる感じで

>>771
バレンタインデーと言っておいて日付を選べる感じとはいかこれに

彼女ができる日が可変、
チョコがもらえるのは2月14日で固定

備考：
俺が事前に彼女を作りたいのは、
「気合入れて作るから楽しみにしててね」といわれたいからだ

1つのフォームに改行を使って複数の単語を書き、それを受け渡して単語毎に並べるようなのって可能でしょうか？
$word[$_]のようなのでそれぞれの単語を分けたいのですがなかなか出来ません。
ご教授頂けますと有り難いです。

以下のような感じです。

┌──────┐
│あいうえお　│
│かきくけこ　│(←textarea)
│さしすせそ　│
└──────┘

　↓受け渡し↓

あなたの記入した単語は
1つ目[あいうえお]
2つ目[かきくけこ]
3つ目[さしすせそ]
の3つです。

のような感じです。

どなたか宜しくお願い致します。

>>775
改行でsplitしたら？改行コードに気を付けないといけないけど、それで問題ないと思う。

>>776
ありがとうございます。
調べてみます。

>>776
すみません、やっぱりもう少し詳しくお願い出来ませんでしょうか？

現在このような感じです。

#変数[$word]を受け渡し
@text = split(/\n/, $word);

これを表示させたいのですが、どの様にしたら改行毎に一つずつ表示出来るのでしょうか？
そもそも上ので出来るのでしょうか？

すみませんが宜しくお願い致します。

textarea　っていうのは、html の textarea のことか？
だったら html の textarea の使い方を調べなさいよ。
html すら知らないで perl でwebプログラミングなんて無謀すぎる。

textareaはわかります。

ですが、@textの改行された分だけ(例えば3回改行されていた場合)並べて表示させる方法がわかりません。

例えば
あいうえお
かきくけこ
さしすせそ
を入力したとしてそれを一つずつ表示させるためにはどうしたら良いのでしょうか？

1行目
<textarea>あいうえお</textarea>
2行目
<textarea>かきくけこ</textarea>
3行目
<textarea>さしすせそ</textarea>

のように一つずつ分けて、書かれた行数分だけループさせて書きたいのですが、教えていただけないでしょうか？
説明不足で申し訳御座いませんが、宜しくお願い致します。

for 文か foreach 文をつかえ。

for ($i = 0; $i < $#text; $i++) {
  print "<textarea>$text[$i]</textarea>";
}

foreach $tt (@text) {
  print "<textarea>$tt</textarea>";
}

まず http://www.tohoho-web.com/wwwperl2.htm ここでも読んで
perl で使える命令を全部、頭に叩き込んでおけよ。

おっと...

誤：　for ($i = 0; $i < $#text; $i++) ・・・
正：　for ($i = 0; $i <= $#text; $i++) ・・・

>>781
初めに思ってたのと何か違う質問になってるな
<textarea
ああいうえお
かきくけこ
さしすせそ</textarea>
これを1行ずつ表示させたいのではなくて？

use CGI;
my $q = CGI->new;
print $q->header( -type => "text/html");
my $body = $q->param( 'body' );
$body =~ s/\x0D\x0A|\x0D|\x0A/\n/g;
my $li;
for my $word (split "\n", $body) {
　　$li .= "<li>$word</li>";
}
print <<"HTML"
<form method="post" action="">
<textarea name="body">
a</textarea>
<input type="submit" />

$li</form>
HTML

>>782-783
ありがとうございます。
URL先と書いていただいた内容を参考にさせていただき、勉強致します。
>>784
ありがとうございます。
自分でも書いていて変だということに今気づきました。
簡単に纏めると、
�@フォームに文章を書いてもらい、受け渡す
�Aそれを受け取り、改行毎に一つずつ変数を持たせて並べる
みたいな感じです。
今も書いていて意味がわかりずらいです。
本当にすみませんでした。

どうしても出来ませんでした…
どうやっても500エラーから逃れられません…

>>782-783様や>>784様のを組み込もうと考えていたのですが、何か根本的に私のは間違っていたみたいです。

申し訳御座いませんが、出来れば一通りのサンプルのようなものを作成していただけないでしょうか？

仕様は何度か書かせていただきましたが、
�@test.cgi(仮)にアクセスするとフォーム表示
�Aフォームに
[あいうえお]
[かきくけこ]
[さしすせそ]
等を複数行記入してsubmitを押す
�Bsubmitを押すと
◆1行目
あいうえお です。
◆2行目
かきくけこ です。
◆3行目
さしすせそ です。
のように表示される。

このようなのをお願いしたいのですが、やはり難しいでしょうか？

どなたか何卒宜しくお願い致します。

>>786
500エラーのエラー内容ください。

@textらへんでエラーが出てるようですが、
明らかに自分が書いた部分が掛かっていると思われますので、
修正というよりは１から作り直したいのですが、お手伝いしていただけますでしょうか？

>>788
エラーログが見れない環境？
>>784コピペするとどうなる？

すでに >>784 で答えが出てるじゃないか。
何が不満なのか？
スクリプトをホームページへ設置するやりかたまで
手取り足取り教えろとでも言うのか？

>>789
すみません、エラーログは見れません。
>>784をコピペして使うと500が出ます。

じゃ、「http 500」でググれ

フリーのPerlチェッカーでチェックしました。

Perlのエラー出力
Unrecognized character \241 at tmp.pl line 8.


ソース
0001: use CGI;
0002: my $q = CGI->new;
0003: print $q->header( -type => "text/html");
0004: my $body = $q->param( 'body' );
0005: $body =~ s/\x0D\x0A|\x0D|\x0A/\n/g;
0006: my $li;
0007: for my $word (split "\n", $body) {
0008: 　　$li .= "<li>$word</li>";
0009: }
0010: print <<"HTML"
0011: <form method="post" action="">
0012: <textarea name="body">
0013: a</textarea>
0014: <input type="submit" />
0015: $li</form>
0016: HTML

8行目の何が問題なのでしょうか？

まさか、インデント用の全角スペースをそのままコピペしてた、
というオチではないだろうな。

いえ、削除致しました。

print <<"HTML"
でエラーが出ました。

Unrecognized character \241 at tmp.pl line 8.　って出てるじゃないか。読めないの？

>>796
これだろ？
Can't find string terminator "HTML" anywhere before EOF at m.pl line 10.

>>798
はいそれです。

最後に改行を入れてないためのエラーか。
というか、>>793は全角スペースのエラーだよね。>>794は言ってることあってたと思うんだけど会話になってないな。

>>800
確かにそうでした。
全角削除しても500出てたので勘違いしていました。すみませんでした。

最後に改行を入れた所、チェッカーでのエラーは無くなりましたが、未だにアクセスすると500になります。
何か原因などあるのでしょうか？

シェバング行がねーよwwwアホスwww

ここまで書かないとだめか？

これはひどい。

とにかく、ひどい

すみません、理解出来ませんでしたので御説明いただけると有り難いです。

シェルやCGIなどのインターフェイスを介してスクリプトを実行させる際に、
スクリプトの一行目に、どのプログラムで解釈させるのかを書いておく。
その行をシェバング(sharp bang/shell bang)行と呼ぶ。
その行が欠落している。

詳しくは、お使いのサーバの管理者にお尋ねください。

コメニケーション能力不足

会話のキャッチボールができていない

ここまでくるとスレタイ通り全部作った方がいいのかな？不毛なやりとりだからもう下のやつコピーして終了にすればいいよ
ファイル名はtext.cgi。実行権限を付ける。
=====ここからコピー=====
#!/usr/bin/perl -T

use strict;;
use warnings;

use CGI;

my $q = CGI->new;
print $q->header( -type => "text/html");
my $body = $q->param( 'body' );
$body =~ s/\x0D\x0A|\x0D|\x0A/\n/g;
my $li;
for my $word (split "\n", $body) {
$li .= "<li>$word</li>";
}
print <<"HTML"
<form method="post" action="">
<textarea name="body">
</textarea>
<input type="submit" />

$li</form>
HTML

__END__
=====ここまでコピー=====

>>806-807
つーか、クレクレだしな。

>>805
説明ありがとうございます。
そのような事すら知りませんでした。
勉強になります。
ありがとうございました。
>>806>>807
申し訳御座いませんでした。
リアルで話し下手なのがこのような場でも御迷惑をおかけしたことを大変恥じております。
これからはperl以前にそのような事にも気をつけたいと思います。
本当に申し訳御座いませんでした。
>>808
最後までご丁寧にありがとうございます。
コピーして使わせていただきます。
本当にありがとうございました。

このスレに来るのはこれで最後にします。
御迷惑ばかりおかけして本当に申し訳御座いませんでした。