Re: zip command in perl

[Oliver Block]

Am Freitag, 7. April 2006 07:15 schrieb Irfan J Sayed:

> I need to zip my backup dir. so that it will automatically convert my
> backup dir to backup.zip file
> can it be happen through perl ?

Why don't you use backticks?

btw: are you running perl on win32?

cu,

Oliver



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: Very Basic Web Scrape

[Oliver Block]

Hi,

> I understand regex, but the following fails:
> open PAGE, 'c://redcross.htm';
> while( my $line =  ) {
> $line =~ /Health and Safety Classes/
> print "$1\n";
> }

What fails? Your forget a ';' after the regex but I guess that's not what you 
mean!? :)

cu,

Oliver



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: Very Basic Web Scrape

[Oliver Block]

Am Freitag, 7. April 2006 22:36 schrieb [EMAIL PROTECTED]:

> I was trying to limit the result to the words /Health and Safety
> Classes/ that appear on the page.  How do I get there?

At first you need to understand regex! :)

> open PAGE, 'c://redcross.htm';
> while( my $line =  ) {
> $line =~ /Health and Safety Classes/
> print "$1\n";
> }

$1 has no value because you did not use groups.

The esiest - based on you code - is:

while(  ) {
   print if /Health and Safety Classes/;
}

Look after:

perldoc perlopentut
perldoc perlretut
perldoc perlre
perldoc LWP

cu,

Oliver



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: a way to avoid recompiling perl?

[Oliver Block]

Am Montag, 10. April 2006 13:32 schrieb tom arnall:

The link target will describe perl compilation.



cu,

Oliver



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: Perl regular exp

[Oliver Block]

Am Mittwoch, 12. April 2006 00:38 schrieb Sonika Sachdeva:
> my $regex="$pattern1 && $pattern2  && $pattern3";
> print $line if ($line =~ /$regex/);
>
> doesn't work...
Why should it work?

regards,

Oliver



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: Perl regular exp

[Oliver Block]

Am Mittwoch, 12. April 2006 01:02 schrieb Sonika Sachdeva:
> How do I use variable string value as a regular expression?

print $line if $line =~ /$pattern/;

regards,

oliver



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: Perl regular exp

[Oliver Block]

Am Mittwoch, 12. April 2006 01:15 schrieb Sonika Sachdeva:
> $str1=shift;
> $str2=shift;
> $str3=shift;
>
>
> foreach (@LINES){
> push @output,$_ if /$querystring/ ;
> }
>
> does not work even if I have @LINES containing all 3 words.
..
pursh @output, $_ if(/$str1/ && /$str2/ && /$str3/);
..

regards,
Oliver



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: Perl regular exp

[Oliver Block]

Am Mittwoch, 12. April 2006 01:27 schrieb Sonika Sachdeva:
> Actually I am looking for AND and OR combinations..and the number of words
> are not fixed.
> ie @words is the variable and I need to have OR and AND combinations of
> @words. to match in LINES
> How do I go about it?

/abc|def|ghi/

matches 'abc' or 'def' or 'ghi' in $_

perldoc perlre
perldoc perlretut

regards,

oliver



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

store a complete object?

[Oliver Block]

Hello everybody,

my $obj = MYCLASS->new( ... );

I wonder if there are ways to save $obj with all its members to disc or 
a database table?


Best Regards,

Oliver Block


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/

compiler output/global variable

[Oliver Block]

hello everybody,

what may cause perl to give the following command line output 

Global symbol "$form" requires explicit package name at /.../Address.pm line 
44.


even if the variable $form is declared in line 16 as follows

my $form = $self->formbuilder;

within a sub of a class definition. 

Best Regards,

Oliver Block


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/

Re: compiler output/global variable

[Oliver Block]

Hello Ray,

Thanks for your response. I could already solve the problem. It was caused by 
a syntax error in a different line within the same sub.:-) I read my source 
code over and over and finally find the error.

Best Regards,

Oliver Block


Am Donnerstag, 11. September 2008 16:30:49 schrieb Raymond Wan:
> Hi Oliver,
>
> You have to show more of the source code -- but it sounds like you've
> declared $form with "my" within a function/subroutine and it is not
> visible outside the function?  Could that be the problem?
>
> Ray
>
> Oliver Block wrote:
> > hello everybody,
> >
> > what may cause perl to give the following command line output
> >
> > Global symbol "$form" requires explicit package name at /.../Address.pm
> > line 44.
> >
> >
> > even if the variable $form is declared in line 16 as follows
> >
> > my $form = $self->formbuilder;
> >
> > within a sub of a class definition.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/