Thank you Vidhut for your help, I would have only one wish left for the perl gurus: to implement a tiny "stop" tag into the line "find(sub {$name{$File:...
... hwitche> I would have only one wish left for the perl gurus: to implement a hwitche> tiny "stop" tag into the line "find(sub {$name{$File: :Find::name} = ...
... The *perlrun *document states that the numeric value of the *-0*command-line feature is an *octal* value. (You can use a hexadecimal value by using...
... You never fail to let me know just how far away I am from being a perl guru or a beginner, for that matter Randall. But I always get hopeful the more your...
Jon Reynolds
jonr@...
Jul 21, 2009 7:26 am
26683
Note: I'm new to using the mailing list - my apologies if I'm doing anything incorrectly. I'm having a problem with parsing some CSV data. I'm using ...
Hi Randal an Jon, I respectfully insist: I still DREAM of a switch in: find(sub {$name{$File::Find::name} = -f;}, @ARGV); For now I have a construction with...
... Hans> Why so much coding when it could be achieved much easier, having somewhere Hans> deeper in the perl machine code a stop switch like "stay" in the ...
Let's say I have this snippet: $_ = "test"; my $thing = "test"; if (/^$thing/) { print "Yah!\n"; } else { print "booo...\n"; } It correctly prints "Yah!". If...
... You need to escape the meta-characters in $thing, but don't change $_. if( /^\Q$thing\E/ ){ See `perldoc perlre` and search for /\\Q/ You can also read...
Shawn H. Corey
shawnhcorey@...
Jul 28, 2009 2:22 pm
26688
... fooguy89> $_="[test]"; fooguy89> my $thing = "[test]"; if (/^\Q$thing/) { .... } See \Q in the docs (I think it's in "perldoc perlre"). -- Randal L....
You can try as below. my $_ = "[test]"; my $thing = "[test]"; $thing =~ s/\[/\\\[/g; if (/^$thing/) { print "Yah!\n"; } else { print "booo...\n"; } Sudhakaran....
... sudha> You can try as below. But \Q handles a lot more than [. And should be the preferred solution. -- Randal L. Schwartz - Stonehenge Consulting...
Hi everyone, I am preparing a script to extract certain data from a file. The file is stored at the location specified in the variable $dir_path below. There...
... nikhil> $dir_path = </abc/def/ghi/pp123456.2.3.4.jk.xyz>; What is this? Not Perl. Some other language? -- Randal L. Schwartz - Stonehenge Consulting...
On Wed, Jul 29, 2009 at 6:45 PM, nikhil ... Generally, the best practice is to use well-tested and thoroughly-designed modules to solve problems like these....
Jeff Soules
soules@...
Jul 30, 2009 4:42 am
26696
Hi Nikhil, hope this will resolve your problem $dir_path = "/abc/def/ghi/pp123456.2.3.4.jk.xyz"; $filename = ($dir_path =~ /(.*)\/(.*)\/(.*)\/(.*)/); $filename...
On Windows, can a file that is deleted with the unlink command be recovered? If so, is there a way in Perl to delete a file so that the deleted file is...
First of all - this is my first post. So just want to know if I'm doing everything right. Then I may suggest a workaround for that problem: - overwrite that...
excuse i think that you must use this function index string , $thing ... From: MAJID AGHA AMINI <amini4@...> Subject: Re: [PBML] Re: Regular Expression...
"/^$thing/" Isn't that because you have $ (end line regex) just after ^ (line start reged) ? So it tries to match empty line followed by the word "thing". -- ...
I'm using Net::SSH::Perl it my Perl script. The problem is because of OS upgrades and what other reasons I'm not aware of the SSH key gets changed from time to...
... Dukelow,> I know how to fix it manually but I can't figure out how to get Net::SSH::Perl to see this error message so I can have Perl fix it. Dukelow,>...
Hi All, Using GD::Graph::pie, I have created a pie chart. But, I am unable to add a legend to the chart. Is there any provision to add legend to a pie chart ? ...
Hi, I am using the IMAP::Client for automating the quota check for some of the users. My script was fairly straight, and I ran in to the below error, while...
# Display the IMAP resource usage on the user's post office server. use strict; use warnings FATAL => 'all'; use Cyrus::IMAP; use Getopt::Std; sub usage(;$); ...