split, substitue with mutlibyte kanji file ?

2004-07-15 Thread John Mooney
We've been told previously, that Perl cannot safely perform byte operations like substitution or splitting, on lines containing multiple-byte, Japanese characters. Yet in reading a bit about Ken Lunde's papers, and about Perl 5.8 I/O Layers or Encode::JP, it looks like it might be possible. I'm

Re: Module listing

2003-03-05 Thread John Mooney
use ExtUtils::Installed; my $instmod = ExtUtils::Installed->new(); foreach my $module ($instmod->modules()) { my $version = $instmod->version($module) || "???"; print " $module -- $version\n"; } >>> "Rob" <[EMAIL PROTECTED]> 3/5/2003 9:36:01 AM >>> Is there a per

RE: Perl Cookbook

2002-05-16 Thread John Mooney
Also, consider the perl 6 books on CD from O'Reilly, which includes the cookbook. I have this installed onto the hard drive, search for the functions or problems I'm trying to deal with, and have immediate access to all the code examples for pasting into scripts. Definitely a timesaver ... I j

string manip on japansese characters?

2002-04-15 Thread John Mooney
Hello, I was wondering if someone could provide some advice on how to tweak a perl script to deal with double-byte (UTF_8 & S-JIS) characters from within perl. I've read a TPJ article by Jeff Friedl. I've also searched CPAN and found many different modules - IMAP*, UTF-*, and on and on and am a

Re: file test doesn't seem to be working

2002-02-05 Thread John Mooney
>>> "Brett W. McCoy" <[EMAIL PROTECTED]> 2/5/2002 10:35:48 AM >>> > >That's just more a matter of style -- I get the willies when subroutines >modify global values invisibly. Great advice. thanks -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: file test doesn't seem to be working

2002-02-05 Thread John Mooney
>>> "Brett W. McCoy" <[EMAIL PROTECTED]> 2/4/2002 9:28:42 PM >>> >>On Mon, 4 Feb 2002, david wright wrote: >> >> i can't use the ternary operator like this? (damn waste if not) thanks. >> >> foreach $dup (@array){ >> (-d $dup) ? print "yes: $dup \n": print "no: $dup \n"; >> ) > >Yes, that i