Re: Can't find perldoc in Cygwin

2013-11-17 Thread Michael Brader
n list: http://cygwin.com/lists.html While you are waiting to resolve that issue, the perldoc pages are online at http://perldoc.perl.org/ Cheers, Michael -- Michael BraderSenior Software Engineer and Perl Person There's no such thing as a DevOps team Techn

Re: Reading a sequence data from a file

2013-11-12 Thread Michael Brader
write the lines of code exactly how I should run it? And would like to hear further instructions and recommendations. Kind regards, Femi On Nov 12, 2013, at 1:08 AM, Michael Brader <mailto:mbra...@internode.com.au>> wrote: Nathan has found your problem, but see below for more sugges

Re: Reading a sequence data from a file

2013-11-11 Thread Michael Brader
return value of system calls such as close. It's unlikely after reading but a big problem after writing: close $PROTEINFILE or warn "Problem closing protein file $proteinfilename. Reason: $!"; Cheers, Michael -- Michael BraderSenior Software Engineer a

Re: Dealing with apache timeout in Perl

2013-09-04 Thread Michael Brader
nkey Pathak <http://www.technostall.com> -- Regards, Chankey Pathak <http://www.linuxstall.com> -- Michael BraderSenior Software Engineer and Perl Person Our World Wide Web has a World Wide Network Technology/Softdev/DevOps Internode http://internode.on

Re: Print to several logs

2013-08-27 Thread Michael Brader
print like this: print LOG LOG2 "[...]"; But that fails with an error: String found where operator expected at ./t1.pl line 109, near "LOG2 "kdkdkdkd Output from:\n$rsync cmdflgs"" (Do you need to predeclare LOG2?) syntax error at

Re: Convert any date format to ISO

2013-07-27 Thread Michael Brader
On 07/26/2013 06:10 AM, Charles DeRykus wrote: On Wed, Jul 24, 2013 at 10:56 PM, Michael Brader mailto:mbra...@internode.com.au>> wrote: [...] There are at least 2 modules that can definitely do the job for you, Date::Manip::Date and DateTime (with DateTime::Format::Natur

Re: Convert any date format to ISO

2013-07-24 Thread Michael Brader
. For example, the code above will happily turn '99-99-2013' into '2013-99-99'. Cheers, Michael -- Michael BraderSenior Software Engineer and Perl Person Our World Wide Web has a World Wide Network Technology/Softdev/DevOps Internode http://intern

Re: Convert any date format to ISO

2013-07-24 Thread Michael Brader
. Cheers, Michael -- Michael BraderSenior Software Engineer and Perl Person Our World Wide Web has a World Wide Network Technology/Softdev/DevOps Internode http://internode.on.net/ mbra...@internode.com.au iiNet http://iinet.net.au/

Re: Parsing Data

2013-07-22 Thread Michael Brader
would love to wrap this up so I can transfer my contacts to my new address book. Thanks again to all. my $url = $item->findvalue('a[@class="lnk-store-item"]/@href'); See an XPath reference for why. And go to bed! Cheers, Michael -- Michael BraderS

Re: What is the difference between () and [] syntax for array?

2013-01-07 Thread Michael Brader
illustrate the difference: #!/usr/bin/perl use strict; use warnings; use Data::Dumper qw/ Dumper /;; my @a1 = ( 1, 2, 3 ); print '@a1: ' . Dumper(\@a1); my @a2 = [ 1, 2, 3 ]; print '@a2: ' . Dumper(\@a2); Cheers, Michael -- Michael Brader

Re: regular expression help

2012-09-20 Thread Michael Brader
ings; use File::Spec; # for splitpath my $path = 'c:\p4\car\abc\xyz.csproj'; my ( $volume, $directories, $file) = File::Spec->splitpath( $path ); print <<"EOINFO"; Volume: $volume Directories: $directories File: $file EOINFO exit 0; __END__ Cheers, Michael --

Re: How to set ">" as record separator in a Perl one liner?

2012-07-16 Thread Michael Brader
PR as a hex string and returns the corresponding value. http://perldoc.perl.org/functions/oct.html *oct EXPR **oct* Interprets EXPR as an octal string and returns the corresponding value. I tested the functions. The first description is possibly wrong. If I am right, which functions

RE: Bareword and strict subs

2012-05-31 Thread Michael Brader
rds and 'perldoc strict' for more info on what "use strict 'subs' forbids and allows. Cheers, Michael Michael Brader Senior Software Engineer - Billing Techops - Softdev Internode http://www.internode.on.net/ From: Mark Haney [ma

RE: Getopt::Long

2012-05-16 Thread Michael Brader
abc) { print "You have choosen \"abc\" as $abc" }; # == If you don't have List::MoreUtils installed and can't install it, replace the 'if ( any...)' block with: foreach my $arg (@ARGV) { if ( $arg eq '-help' ) { $help = 1;

Re: Can't find string terminator

2012-05-09 Thread Michael Brader
r/lib/mysql free ExData --fields-enclosed-by=\"\ --fields-terminated-by=\|\"); Thank you for any and all assistance! Regards, Al -- Michael Brader Senior Software Engineer - Billing Techops - Softdev Internode http://www.internode.on.net/ -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/