Re: How to search/match a variable pattern

Hi John, Thanks for a very quick response John. It gives the error as below: Trailing \ in regex m/D:\STUDY\PERL\MYFTP\/ at D:\Study\Perl\MyFtp\Ftp1.pl line 109. ($base,$path,$type) = fileparse($ARGV[0]); $pattern=$path; print "matches" if $string =~ m/$pattern/; I print $pattern and it is

Re: How to search/match a variable pattern

[EMAIL PROTECTED] wrote: > > Quoting "John W. Krahn" <[EMAIL PROTECTED]>: > >> [EMAIL PROTECTED] wrote: >> >>> Can some please advise how to get this to work? >>> >>>print "matches" if $string =~ m/$pattern/; >> >> You probably have regex meta-characters in $pattern that need to be >> escaped

Re: How to search/match a variable pattern

On 08/11/2006 11:50 PM, [EMAIL PROTECTED] wrote: Hi John, Thanks for a very quick response John. It gives the error as below: Trailing \ in regex m/D:\STUDY\PERL\MYFTP\/ at D:\Study\Perl\MyFtp\Ftp1.pl line 109. ($base,$path,$type) = fileparse($ARGV[0]); $pattern=$path; print "matches" if $s

Re: Dynamic variables - from INI files ...

On 08/11/2006 09:37 PM, [EMAIL PROTECTED] wrote: Hi, I am writing a Perl script that reads some kind of INI file. I cannot use Config::INI or install any new modules due to some restriction so am reading the whole INI text file one line at a time and storing them into an array. Here are what on

Re: How to search/match a variable pattern

Hi John, Thanks for a very quick response John. It gives the error as below: Trailing \ in regex m/D:\STUDY\PERL\MYFTP\/ at D:\Study\Perl\MyFtp\Ftp1.pl line 109. ($base,$path,$type) = fileparse($ARGV[0]); $pattern=$path; print "matches" if $string =~ m/$pattern/; I print $pattern and it is

Re: How to search/match a variable pattern

[EMAIL PROTECTED] wrote: > Hi all, Hello, > Can some please advise how to get this to work? > >print "matches" if $string =~ m/$pattern/; > > Am trying to search for a pattern but the pattern has to be a variable. Thanks > in advance. How did this "not work"? What is it not doing that you

How to search/match a variable pattern

Hi all, Can some please advise how to get this to work? print "matches" if $string =~ m/$pattern/; Am trying to search for a pattern but the pattern has to be a variable. Thanks in advance. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Dynamic variables - from INI files ...

Hi, I am writing a Perl script that reads some kind of INI file. I cannot use Config::INI or install any new modules due to some restriction so am reading the whole INI text file one line at a time and storing them into an array. Here are what on my INI files: FTP_USER=FTPUser FTP_PASSWORD=FTPUse

Re: Seek positioning

Beginner wrote: > > I had just found tell (honest) in the opentut. You are of course > tight I have to step back a couple of bytes to get to the beginning > of the string I want but WHOOPIE it works. > > I can quickly retrieve all the XML/XMP from an image file (similar > to, but no where nea

Re: Hide code and user interfaces

On 08/11/2006 10:51 AM, Kevin Viel wrote: [...] Second, is there a way to keep my code private, like providing only the compiled program? [...] I did a search on CPAN for "Obfuscate," and PAR::Filter::Obfuscate was returned. It's possible that PAR from CPAN is what you need. -- To uns

Re: Hide code and user interfaces

Kevin Viel wrote: > Greetings, > > I have written small scripts that I would like to distribute to some > members of our labs. As some of these people are not computer savy and > training emphasis would likely be on technical skills, I do not think > the concept of the command prompt (in Window

Re: the biggest number

On Fri, 2006-08-11 at 18:54 +0200, Adriano Allora wrote: > Actually I use a while loop to extract the numbers: > > while (defined($file = readdir(DIR))) > { > next if $file =~ /^\.\.?/; > $file =~ s/[A-Z]+(\d+).txt$/$1/; > # > } >

the biggest number

hi all, I've got a list of filenames like this: IT1.txt IT2.txt IT3.txt [...] IT10.txt IT11.txt IT12.txt [...] DE1.txt DE2.txt DE3.txt [...] DE10.txt DE11.txt DE12.txt and I need to extract the biggest number in these files (12 in the example, the files are always in pairs) Actually I use a

Re: Seek positioning

On 11 Aug 2006 at 9:28, Tom Phoenix wrote: > On 8/11/06, Beginner <[EMAIL PROTECTED]> wrote: > > > But once I have found my tag I would like to use sysseek and sysread > > to slurp up some data. Is there some way I can find out where my > > position in the file is once $_ has matched? > > You pr

Re: Seek positioning

On 8/11/06, Beginner <[EMAIL PROTECTED]> wrote: But once I have found my tag I would like to use sysseek and sysread to slurp up some data. Is there some way I can find out where my position in the file is once $_ has matched? You probably want seek() and read(), instead of sysseek() and sysre

Re: uploading a file to webserver

On 8/11/06, prashant puranik <[EMAIL PROTECTED]> wrote: I am trying to upload file to webserver. $filename = param('uploaded_file'); You probably want the upload() function; see the CGI module's documentation. Hope this helps! --Tom Phoenix Stonehenge Perl Training -- To unsubscribe,

Hide code and user interfaces

Greetings, I have written small scripts that I would like to distribute to some members of our labs. As some of these people are not computer savy and training emphasis would likely be on technical skills, I do not think the concept of the command prompt (in Windows) would be very welcomed.

Re: database troubles

On 8/10/06, hOURS <[EMAIL PROTECTED]> wrote: Hi, I'm new to the list. Thanks everyone for having/doing this. I want to use PERL to work with a database, but I can't seem to get PERL to open the databases on my computer. I've been learning from Paul Hoffman's PERL for Dummies (3rd editi

Seek positioning

Hi, I am trying to open a binary file and find a string that begins: ) { if ($_ =~ "

File locking with XML processing

Hi Gurus, Slowly improving my perl skills.Thanx for all your help till now. I have one more query. I have a webpage which has an input form. The input data is stored in an XML.The webpage also processes the XML and displays the data. Few q

Re: how to avoid "spawning" multiple process of the same script ..

merlyn@stonehenge.com (Randal L. Schwartz) writes: > Use the "highlander" solution: > > #!/usr/bin/perl > > BEGIN { > use Fcntl ':flock'; > flock DATA, LOCK_EX | LOCK_NB or exit 0; # I'm already running > } > > [ rest of your script here ] > > __END__ > > To do this,

Re: replace all # chars in a text where the first with and second in through the text

"Steven De Ketelaere" schreef: > I want to replace all first # characters with > and second # characters with [...] > > If only 1 # character is found I do not need to replace this s{#([^#]*)#}{$1}g -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED] F

Re: processing xml-files in cgi-environment

"Dr. Claus-Peter Becke" schreef: > if ($Q::xmldatei ne '') > { > $dom_parser = new XML::DOM::Parser; > $doc = $dom_parser->parsefile("$Q::xmldatei"); > print$q->hr; > print$doc->toString; > print$q->hr; > > the instruction print $doc->toString display

replace all # chars in a text where the first with and second in through the text

Dear All, I'm a newbie concerning Perl and need to solve a simple?? issue, I want to replace all first # characters with and second # characters with Example : This is a #text# in which I would like to #replace# all # characters. Would be : This is a text in which I would like to replace all

processing xml-files in cgi-environment

dear members, i'm using xml::dom E.Ray's/J.McIntosh's XML&Perl book offers( i'm reading the german edition) a few examples. one of them in chapter 7 deals with processing an xhtml-file. i have substituted the xhml-file by a wellformed and valid xml-file. starting the perlscript bsp00_dom1.

uploading a file to webserver

Hi All, I am trying to upload file to webserver. when I try the following from the CGI script $filename = param('uploaded_file'); I get the filenamecorrect But when I try the following as mentioned in CGI.pm documentation while (<$filename>) { print; } Im not getting a