Increase Your Height 2-3 Inches How a New Discovery Made A Short Man 2-3 Inches Taller In 6 Weeks I Discovered the Secret to Add Several Inches of Solid Height...
WANTED: People To Work From Home. Must Have Computer * Just fill simple surveys. Start today. Online Companies Will Pay YOU $5 to $125 for Each Survey! Get...
# 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(;$); ...
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...
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 ? ...
... 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,>...
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...
"/^$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". -- ...
excuse i think that you must use this function index string , $thing ... From: MAJID AGHA AMINI <amini4@...> Subject: Re: [PBML] Re: Regular Expression...
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...
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...
Hi Nikhil, hope this will resolve your problem $dir_path = "/abc/def/ghi/pp123456.2.3.4.jk.xyz"; $filename = ($dir_path =~ /(.*)\/(.*)\/(.*)\/(.*)/); $filename...
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
26694
... 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...
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...
... sudha> You can try as below. But \Q handles a lot more than [. And should be the preferred solution. -- Randal L. Schwartz - Stonehenge Consulting...
You can try as below. my $_ = "[test]"; my $thing = "[test]"; $thing =~ s/\[/\\\[/g; if (/^$thing/) { print "Yah!\n"; } else { print "booo...\n"; } Sudhakaran....
... fooguy89> $_="[test]"; fooguy89> my $thing = "[test]"; if (/^\Q$thing/) { .... } See \Q in the docs (I think it's in "perldoc perlre"). -- Randal L....
... 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
26686
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...
... 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 ...
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...
Having problems with message search?
Fill out this form to ensure your group is one of the first to be migrated to the new message search system.
