Taki skrypcik a'la from

Article View: pl.comp.lang.perl

Article #39988

#39988

From: Teodozjan
Date: Sun, 07 Nov 2004 19:54

21 lines
1266 bytes

Nie odpowiadało mi polecenie systemowe from więc napisałem swój
skrypt. Problem w tym, ze jak przychodzi jakiś spam to kazdy list
wypisuje dwa razy. I nie bardzo wiem dlaczego, błąd w wyrażeniach
regularnych?


#/usr/bin/perl 


while(<>){
    s/=.+?=//;
    print $1, "\n" if /^From\:(.+)/i;
    print "\t", $1, "\n\n" if /^Subject\:(.+)/i;

}

-- 
Teodozjan

"Do internetu wchodzi się tą ikonką na pulpicie"// Autor nieznany

Technical Details

Message-ID: <85mzxt4epy.fsf@netg.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.internetia.pl!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.internetia.pl!not-for-mail
From: Teodozjan <cobweb@netg.pl>
Newsgroups: pl.comp.lang.perl
Subject: Taki skrypcik a'la from
Date: Sun, 07 Nov 2004 20:54:33 +0100
Organization: Netia Telekom S.A.
Lines: 21
Message-ID: <85mzxt4epy.fsf@netg.pl>
NNTP-Posting-Host: netghost.biz
Mime-Version: 1.0
X-Trace: nefryt.internetia.pl 1099857260 16243 213.17.252.34 (7 Nov 2004 19:54:20 GMT)
X-Complaints-To: abuse@inetia.pl
NNTP-Posting-Date: Sun, 7 Nov 2004 19:54:20 +0000 (UTC)
X-Tech-Contact: usenet@internetia.pl
Cancel-Lock: sha1:RjvWfd/RyfljfOVgn7q/xQ6NMP4=
User-Agent: Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3 (gnu/linux)
X-Server-Info: http://www.internetia.pl/news/
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit