藤原 誠/ Makoto Fujiwara
makot****@ki*****
2006年 7月 9日 (日) 09:26:58 JST
> 千葉市中央区長洲
> 藤原 誠
Kenji さんありがとうございます。
実はちょうど同じ頃、sourceforge を見に行ったのですが、自分が
一度でも使ったことがあるのか (つまり何がしかの登録があるのか)
どうかも分らない状態でした。
それで、
(1) 以前お送りしたものは、一行目の最後に / が入っていて、その
/ が入っていない url が書かれたことがあった
(2) 数日前にまた、別の url 等が書かれたことがあった
ので、作り直して見ました。
---
(藤原)
-------------- next part --------------
#!/usr/pkg/bin/perl
## rot13(+) でお送り致します。
## perl ./this-file
## として見て下さい。あるいは暗号化するには
## perl ./this-file ~/diary/conf/spam_list.txt
## などとします。
use strict;
if ( $#ARGV > -1 ) {
open (DATA, $ARGV[0]) || die " problem opening $ARGV[0]: $!";
}
my @string = <DATA>;
my $string = join '', @string;
$string =~ tr/A-Za-z !"#$%&'()*+,-.\/0123456789:;<=>?/N-ZA-Mn-za-m0123456789:;<=>? !"#$%&'()*+,-.\//;
print $string;
### !"#$%&'()*+,-./0123456789:;<=>?
### 0123456789:;<=>? !"#$%&'()*+,-./
__DATA__
uggc*??zbivr>oof&)>arg
uggc*??webyyre>pbz?cntr?gnqnynsvy
uggc*??vvv>zcntr>wc
ZlEbyrkErcyvpn
uggc*??jjj>jroybt>eb
uggc*??sheavgher! >arg
sheavgher ＠ avpr>pbz