あー、とても急だったもので。 とりあえず、恐るべきさぬきうどん第5巻は入手しました。 文化人(謎)もおもしろそうですね。 残念だ、聞いとけばよかった。
む。一応共有ロックしとくか。
--- newsSiteChecker.pl.org Mon May 27 14:45:09 2002
+++ newsSiteChecker.pl Fri Jul 5 02:26:46 2002
@@ -5,13 +5,14 @@
use LWP::Simple 'get';
use FileHandle;
use Text::CSV_XS;
+use Fcntl ':flock';
my $csv = Text::CSV_XS->new;
my $fh = FileHandle->new;
&html_header;
-$fh->open('newslist.csv');
+$fh->open('newslist.csv','r+');
+flock($fh,LOCK_SH);
while(my $line = $fh->getline){
$csv->parse($line);
my @col = $csv->fields;
これも書式違い。
--- newsSiteChecker.pl.org Mon May 27 14:45:09 2002
+++ newsSiteChecker.pl Tue May 28 01:10:06 2002
@@ -5,13 +5,14 @@
use LWP::Simple 'get';
use FileHandle;
use Text::CSV_XS;
+use Fcntl ':flock';
my $csv = Text::CSV_XS->new;
my $fh = FileHandle->new;
&html_header;
-$fh->open('newslist.csv');
+$fh->open('newslist.csv','r+',LOCK_SH);
while(my $line = $fh->getline){
$csv->parse($line);
my @col = $csv->fields;
「名前,RSSファイルのURL」といった CSV を食わすと OK。
#!/usr/bin/perl -w
use strict;
use XML::RSS;
use LWP::Simple 'get';
use FileHandle;
use Text::CSV_XS;
my $csv = Text::CSV_XS->new;
my $fh = FileHandle->new;
&html_header;
$fh->open('newslist.csv');
while(my $line = $fh->getline){
$csv->parse($line);
my @col = $csv->fields;
my $rss = XML::RSS->new;
$rss->parse(get $col[1]);
my @list = ();
printf("<h2>%s</h2>\n",$col[0]);
print "<ul>\n";
foreach my $item (@{$rss->{items}}){
printf(qq@<li><a href="%s">%s</a></li>\n@,$item->{link},$item->{title});
}
print "</ul>\n";
}
$fh->close;
&html_footer;
sub html_header {
print <<_HTML_;
<html>
<head>
<title>News Site Checker</title>
</head>
<body>
<h1>News Site Checker</h1>
_HTML_
}
sub html_footer {
print <<_HTML_;
</body>
</html>
_HTML_
}
こんな感じで。
use strict;
use FileHandle;
use Fcntl ':flock';
my $f = FileHandle->new;
$f->open('test.txt','w+',LOCK_EX);
$f->print("Hello World!\n");
$f->close;これ、書式違う。ダメじゃん。
やっぱり(謎)普通に。
use strict;
use FileHandle;
use Fcntl ':flock';
my $f = FileHandle->new;
$f->open('test.txt','w+');
flock($f, LOOK_EX);
$f->print("Hello World!\n");
$f->close;ダメすぎ(謎)。