Zmienna w operatorze s///

Article View: pl.comp.lang.perl

Article #1148

#1148

From: Przemek Bak
Date: Wed, 25 Mar 1998 16:14

21 lines
1014 bytes

Mam przykladowy kawalek kodu:


#!/bin/perl
$RecordSeparator = '^';
......
while (<JAKIS_INPUT>) {
     s/.*$RecordSeparator$//;   # chce wyrzucic znak '^' poprzedzajacy koniec
linii
     # .......... reszta kodu
}

W taki sposob jak powyzej to nie dziala. Oczywiscie moge wpisac od razu
 s/.*\^$//;
ale chcialbym uzyc zmiennej, zeby ktos, kto nie zna wogole perla mogl sobie
pzrystosowac skrypt do swoich potrzeb bez grzebania w srodku.


przemol
--
przemol@mvii.uni.lodz.pl

Technical Details

Message-ID: <35192D65.D5B22FB8@kki.net.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!localhost!nobody

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!localhost!nobody
From: Przemek Bak <przemol@kki.net.pl>
Newsgroups: pl.comp.lang.perl
Subject: Zmienna w operatorze s///
Date: Wed, 25 Mar 1998 16:14:30 +0000
Organization: http://news.icm.edu.pl/
Lines: 23
Message-ID: <35192D65.D5B22FB8@kki.net.pl>
NNTP-Posting-Host: ppp-172.lodz.tpnet.pl
Mime-Version: 1.0
X-Mailer: Mozilla 4.04 [en] (X11; I; Linux 2.0.30 i586)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit