Re: Find and replace from CSV

0";(The 60k will vary.) with numbers that will be file specific. I have a csv file with the html file names and the corresponding replacement numbers. example: html_file_1.html,66548 html_file_2.html,98754 html_file_3.html,24514 etc... I need the script to open the files listed in the

Re: Chinese word problem

rm ( since you heading your script #!/usr/bin/perl , so I assume ) , however I don't familiar with. You may check if there's some Unicode or UTF-8 issues. in UTF-8, there's 3 bytes. You may also check for other words and see if there's still in 3 bytes. HTH, Mug -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean.

Re: Anyway to write a file's last modify time ?

John W. Krahn wrote: > Mug wrote: > >> Hi all, >> > > Hello, > > >> Is there a Perl way I can modify a file's last modify time in >> anyway ? >> > > perldoc -f utime > > > John > Wow !!! EXACTLY what I want !!! =)) Thank you very very very much, John ! Mug

Anyway to write a file's last modify time ?

net and I can't make network drive. And I also hope that I don't need to do it via FTP way. Any hint ? Thank you very much ! Mug -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: File uploading using CGI

INARY', > Data=>$tmp_file_name, > Filename=>'AttachedFile', > Disposition =>'attachment'); > > #Don't erase; for debugging. >#unlink($tmp_file_name); or die $! # if unlink not succe

Re: 2 modules share each other's methods, is that safe ?

Hi and thanks Sutton, > Igor Sutton wrote: > Hi Mug, > > package PackA; > > sub new { > my ($class) = @_; > my $self = {}; > bless $self, $class; > my $self->{B} = PackB->new($self); > return $self; > } > > package PackB; > > sub ne

2 modules share each other's methods, is that safe ?

s the user interface on drawing calendar ( daily, weekly, monthly, yearly ), where PackB is a Format feeder. The way I need PackB to call PackA again is that I want to call the *Monlty method 12 times so forming the *Yearly one. Thanks for a

Re: Writing routines with future changes in mind

odes... package whatever ; sub doingA { deal with array } sub doingH { deal with hash } sub example_sub { bless {} } 1; __END__ # main use whatever; my $func = whatever::example_sub ; my $step1 = $func -> doingA; my $step2 = $func -> doingB; my $end_result = $step1 . $step2 ; hth, Mug -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Modules inter-relay ?

Bill Jones wrote: > On 12/4/06, Mug <[EMAIL PROTECTED]> wrote: > >> Say I have 2 modules ( below pseudo codes ) , which the first >> package ( InitGlobal ) will be used through out the other project >> modules. However, InitGlobal itself would relay on some other

Modules inter-relay ?

this ? ) Any pointers are greatly appreciate. Thank you very much, Mug package InitGlobal ; use strict; use LocalePrint ; sub GetVars { .. } sub PhaseError { shift ; LocalePrint @_ ; } sub Build { # add something to %ENV; bless {} } 1

Re: delete function

h better ideas... Perhaps grep// is another option, but I have no idea about the speed. HTH, Mug -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: What's this string?

Jm lists wrote: Hello, Can you tell me what's this string? =?GBK?B?zNSxpszh0NHE+qO6wvS80tLRvq3GwLzbo6zH67vYxsA=?= How to decode it?I try: $ perl -MEncode -le 'print encode("utf8",decode("gbk","=?GBK?B?zNSxpszh0NHE+qO6wvS80tLRvq3GwLzbo6zH67vYxsA=?="))' But I can't get the result correctly

Is that I can do something like that ?

king %u_info , the user_detail will return a hash , and while I am asking @attribs, I got an array return. Just note, I don't want to pass / ask reference. Any pointers ? Thanks! regards, mug -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL P

Re: need to parse and verify certain content..

if ($webserver == apache1 && $platform == solaris){ if ( $webserver eq "apache1" ) { } HTH Mug -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: an easy way to know if a module is installed or not

ce if the module is installed or not for the outcome result. HTH, Mug -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Is that possible to tie print ?

remote browser's default language and to do the translation, and print out proper /charset/ content ? Thanks in advise, Mug