Re: Zamiana pierwszego ciagu napotkanego ciagu

Article View: pl.comp.os.linux.programowanie

Article #724

Back to pl.comp.os.linux.programowanie Previous Next

#724

From: Bartosz Jakubski
Date: Sat, 02 Oct 1999 08:51

33 lines
1752 bytes

Sebastian Zagrodzki napisał(a):
>a jeśli "jakiś_ciąg" w ogóle nie występuje w pliku? co wtedy?
>*-*-*-*--*-*-*-*-*-*-*-*-*-*-*
>#!/usr/bin/perl
>$flaga="n";
>while (<STDIN>)
>{
>        chop $_;
>        if ( ($flaga eq "n")&&($_ =~ /$ARGV[0]/) )
>        {
>                $_=~ s/$ARGV[0]/$ARGV[1]/;
>                $flaga="y";
>        }
>        print "$_\n";
>}
>*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
To "chop $_" i 'print "$_\n"' są konieczne. Bo jak nie, to krótsza wersja
mogłaby wyglądać tak:

-----
#!/usr/bin/perl
while(<STDIN>) {
    if (/$ARGV[0]/ && !$flaga) {
        $flaga = s/$ARGV[0]/$ARGV[1]/;
    }
print;
}
-----

-- 
--  Bartosz Jakubski                      Sosnowiec  --
--  Free software is a matter of liberty, not price. --
--     http://www.fsf.org/philosophy                 --

Technical Details

Message-ID: <slrn7vbhsv.fou.migo@localhost.localdomain>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!uw.edu.pl!newsgate.cistron.nl!het.net!news.maxwell.syr.edu!news.icm.edu.pl!cyfronet!security.net.pl!news.vogel.pl!news.zse.edu.pl!localhost.localdomain!migo

References:

<slrn7v62dq.ra.fidor@fidor.komorow.pl> <7sv69k$ccq$1@info.cyf-kr.edu.pl> <slrn7v68os.28s.fidor@fidor.komorow.pl> <7t1rfn$gk1$1@info.cyf-kr.edu.pl> <slrn7v9j53.1aq.s.zagrodzki@argon.zagrodzki.org.pl>

Show Full Headers

Complete Article Headers

From: migo@zse.edu.pl (Bartosz Jakubski)
Newsgroups: pl.comp.os.linux.programowanie
Subject: Re: Zamiana pierwszego ciagu napotkanego ciagu
Date: 2 Oct 1999 08:51:43 GMT
Organization: A poorly-installed InterNetNews site
Lines: 33
Message-ID: <slrn7vbhsv.fou.migo@localhost.localdomain>
References: <slrn7v62dq.ra.fidor@fidor.komorow.pl> <7sv69k$ccq$1@info.cyf-kr.edu.pl> <slrn7v68os.28s.fidor@fidor.komorow.pl> <7t1rfn$gk1$1@info.cyf-kr.edu.pl> <slrn7v9j53.1aq.s.zagrodzki@argon.zagrodzki.org.pl>
NNTP-Posting-Host: pd58.katowice.ppp.tpnet.pl
Mime-Version: 1.0
User-Agent: slrn/0.9.5.7 (UNIX)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!uw.edu.pl!newsgate.cistron.nl!het.net!news.maxwell.syr.edu!news.icm.edu.pl!cyfronet!security.net.pl!news.vogel.pl!news.zse.edu.pl!localhost.localdomain!migo
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message