Hi,
Is there any modules can check my true IP( NOT 192.168.x.x ) I am on while I am behind
a router?
Thanks in advise
I have the following code :
require LWP::UserAgent;
my $ua = new LWP::UserAgent;
my $result = $ua -> get('http://somewhere .com');
When I print $ua, I got :LWP::UserAgent=HASH(0x1a953c4)
When I print $result, I got HTTP::Response=LWP::UserAgent=HASH(0x1a953c4)
What's that mean ? And how can I e
Thanks a lot, all are giving the answers that I want, thanks !!!
- Original Message -
From: "Gunnar Hjalmarsson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, August 15, 2004 12:34 AM
Subject: Re: Strange result from LWP::UserAgent, how to extract ?!
&
Through out the perldoc, I always see something like this : B,
F. something like that,
would anybody tell me what this kind of thing is ? or any reference I can know more
about this kind of phrases are ?
TIA
O! Thanks alot, that just simply the formatting codes, simple !
Thank you.
- Original Message -
From: "Gunnar Hjalmarsson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, August 18, 2004 2:11 AM
Subject: Re: A --- What this kind of meaning is ?
&g
Say I have an array that carries at least 2mb data or 70mb max,
but in my code, I want to throw this array to another sub ( within
the same package )for further operations . so, which one I would
better to use and what's the reason ?
gosub [EMAIL PROTECTED]
or
gosub @array
Is that if I throw
Thank you guys for clearing my concept, I know what to do now !
- Original Message -
From: "Jenda Krynicky" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, September 08, 2004 8:45 PM
Subject: Re: Using reference or throw valuables to sub ?
in short , foo bar baz etc. just mean 'something', 'another something'
whatever is discussing about.for more, check results in google.com for
'metasyntactic variables'
HTH
- Original Message -
From: "jason corbett" <[EMAIL PROTECTED]>
To: "perl beginners" <[EMAIL PROTECTED]>
Sent
open F, "file.txt";
my @file = ;
chomp @file;
print "@file";
Is that what you want ?
- Original Message -
From: "Anish Kumar K." <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, September 09, 2004 2:41 PM
Subject: how to skip new line character
Hi All
As a beginner in PERL,
> >foreach( @ARGV ) {
> > open IN, $_ or die "Couldn't open $_: $!\n";
> > chomp( my @data = );
> > close IN;
> > foreach( @data ) { s/\s+//g; }
> > foreach( 0..$#data ) { $results[$_] .= $data[$_]; }
> >}
> This is a little shorter and saves on iterations:
> for m
> Ok ... Thanks for helpin' out, HTH! I tried out your suggestions and
> now the code looks like this:
You are welcome, but my name is Bee, HTH stands for 'Hope This Help'
>
> #!/usr/bin/perl
> use warnings;
> use strict;
>
> unless( @ARGV >= 2 )
> > Opps, I missed that. Instead of:
> > @results = map { my $line = $_; chomp $line; $line =~ s/\s+//g; $line }
(@data);
> > try:
> > my @newresults = map { my $line = $_; chomp $line; $line =~ s/\s+//g;
> > shift (@results) . $line } (@data);
> > @results = @newresults;
> >
> > -David
This work
Hi, I am very newbie for using the function 'pack', and here I have some questions :
Q1. Can I expect that pack can do this for me ?
- compress a text file in smaller size
- besize template 'aAuU', anything else tempplate I can use to prepare fix length
data ?
- if yes, but how do I a
> Have you read the pack and unpack tutorial?
>
> perldoc perlpacktut
Thanks for this, I missed this one.
>
>
> > Q1. Can I expect that pack can do this for me ?
> > - compress a text file in smaller size
>
> You could implement a compression algorithm with pack/unpack, if you really
> w
> > > > - besize template 'aAuU', anything else tempplate I can use to
> > > > prepare fix length data ? - if yes, but how do I assuming the
> > > > block size is? In case, if I write a binary file and I wanna
> > > > use seek.
> > >
> > > You are going to have to explain that in
First, I have to say thank you for those buddies that replies my thread on Conceptual
question about pack. I just back from from vocation, so say howdy...
For pack, I have do some more experiments, and I guess I could gereralize something...
but that's quite a terrible founding, very far out of
; # read the blank line and let it be passed
@data = () # clear @data for the next user
}
push @data, $ln;
}
print "$_\n" for @result;
Note the code not tested, but guess the flow would be like this. Try modify
it
if you want it be in write-format ways.
HTH,
Bee
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
\$scalar;
while (not eof $FH) { do_something... };
close $FH;
Does it help ?
Bee
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
for my $i ( 0.. $#{$course_info{$item}} ){
> print("$i: $course_info{$item}[$i]\n");
> }
>
> }
>
>
> else{
> print("\n\nOKAY $item \n");
> for $i (0 .. $#{ $course_info{$item} } ){
for my $i ( 0.. $#{$course_info{$item}} ){
> print(
uot;CANCELED" : "OKAY";
print "\n\n --- $status -------- \n";
print "$_ : $course{$code}[$_] \n" for (0..8)
}
HTH,
Bee
- Original Message -
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, October 06, 2004 4:32 AM
the image will open with photoshop.
defOpen 'C:\temp.doc' or die "$!" ; # then the document will open with Word.
I've made this done by writting a batch like code.. but I sure that's unsafe and
unportable.
Thanks for any hint,
Bee
Wow !! As you mentioned, thaz EXACTLY what I want :-))
Thousands Thanks !!!
Bee
- Original Message -
From: "David le Blanc" <[EMAIL PROTECTED]>
To: "Bee" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Thursday, October 07, 2004 7:11 PM
Subject:
Thanks thanks, a very nice lesson again !! Feel quite sorry that I even
never heard about this command for using windows after so many
years...
Thousands thanks,
Bee
- Original Message -
From: "Bob Showalter" <[EMAIL PROTECTED]>
To: "'Bee'" &l
> differ) How can I find the file in any tree or directory.
perldoc -m File::Find
perldoc -f glob
perldoc -f opendir
perldoc -f readdir
>
> Second :
> I want to delete the normal.dot and replace it with the normal.dot that
perldoc -f unlink
perldoc -m File::Copy
HTH,
> Win32::Registry ro Tie::Registry to do the same. Find the type from
> HKEY_CLASSES_ROOT\.ext, go to HKEY_CLASSES_ROOT\\Shell and
> list the subkeys.
>
A very nice hack, It leads me to imagine lot more possibilities, such as
printing
invoice when a sale get confirmed ... So glad to hear about this !!
Many many thanks for the tips!!
Bee
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
(blessed) thing ?
So when I modify something in $y , and not affecting $z ?
Thanks in advise,
Bee
pieces of hints. Just like a blind guy trying walk
through a door in a new place, just keep on hitting on the wall until get
passed. I know I really not sensiable to read documents with full of
terminologies. So I opt to try on codes. I know thaz an hard way or not the
level for me to step into the OO world, but I still would say that's a nice
try with helping from buddies from this list.
Thanks again !
Bee
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
from my PC, but $a and $b are normally using for sorting array
more then just lexcal sorting.
@sorted = sort { $a <=> $b} @unsorted ;
perldoc -f sort
HTH,
Bee
quot;", ;
@digits = $lines =~ /-*?\d+/g;
or
my @digits ;
while ()
{ my @get = $_ =~ /-*?\d+/g;
push @digits, @get
} print @digits
HTH,
Bee
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
shift;
$self -> {ID} = shift;
$self -> {Pass} = shift;
bless $self;
return $self;
}
1;
Follow up on my previous post, I've get my thing cloned, but.. Is it right
way to make a clone like this ? Any more standard way to get the same
job done ?
Thanks in advise,
Bee
PS. I have no
use strict;
open F, "sourcefile.txt";
local $/ = "\n\n";
my @sections = ;
close F;
print "Section $_ :\n $sections[$_]\n\n" for @sections;
HTH,
Bee
- Original Message -
From: "Kevin Old" [EMAIL PROTECTED]
To: <[EMAIL PROTECTED]>
Sen
What a mistake !! Thousands sorry...
( I can't forgive myself ) ~^.^~
Bee
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
ss or what ?
Then I put a die "can't tie $!" after tie, it really dies, but $! have
nothing on it.
I do expect that I will have either with STDOUT or not will
results to print * . What's wrong here ? And how can I make
it done ?
Thanks,
Bee
l can't print. and I even can't do
anything
inside this block. Just simply
print "."
My shell got crash. Anything I print from this block, Windows will shut it
down and tell there is an error, What happen ?!
Thanks for help,
Bee
--
To unsubscribe, e-mail: [EMAI
ne . "\n";
my @d = split /\x00/, $line;
print "<$_> " for @d;
But only if you sure that char is not exist with the data string,
you can use. Otherwise, use other approach, or other delimiter.
>
> Also, why is $y[0] undefined or null, scalar (@y) is 6.
I don't
c -m Tie::Handle and
perldoc -f tie
Do I require to read some more to understand how tie works and what's
going on if I tie my STDOUT ? Note, I am on Win2K.
Please please give me some idea, thanks,
Bee
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
ould you show some data you
are dealing with ?
Regards,
Bee
- Original Message -
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, October 23, 2004 7:06 PM
Subject: How to store the out put in StringBuffer
Hi
Say I have program like this
If I Say print
question :
undef $msg2 ;
or
$msg2 = undef;
HTH,
Bee
- Original Message -
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, October 24, 2004 6:36 PM
Subject: How to empty the buffer
Hi
I have written a program to add the strings. Now after every executi
I guess you may also want to look up something from :
perldoc perlmod
perldoc perlmodlib
perldoc perlmodstyle
It tells how to make scripts become a package and be highly reusable.
HTH,
Bee
- Original Message -
> I have serveral perl scripts that I've written seperately. Now I wan
g = RMD::ForgotPass ( $argument );
That mean a module RMD is included and the script is going to
use the sub (function) 'ForgotPass' inside package RMD.
> 3) defined keyword
>
perldoc -f defined
HTH,
Bee
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
Hi,
Just a quick question, which perldoc talking about loops ?
for, while, do until... ? I just can't find it out
TIA,
Bee
Thanks Jenda ! Got it now =)
- Original Message -
From: "Jenda Krynicky" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, November 04, 2004 5:57 AM
Subject: Re: Which perldoc discuss about loops ?
> From: "Bee" <[EMAIL PROTEC
data and some CLOB..
TIA,
Bee
"zone.file3.com" )
# A semi-colon missed here
for ( my $i . )
HTH,
Bee
- Original Message -
From: "Dave Kettmann" <[EMAIL PROTECTED]>
To: "Perl List (E-mail)" <[EMAIL PROTECTED]>
Sent: Thursday, November 04, 2004 6:28 AM
Subject: Mas
One more note, your loop and substitution can be simpliy like this :
for my $i ( 0.. $#files )
{ open FH, >>$files[$i] or die $!;
{ while () { tr/1/5/; print }
close FH ; # I think close FH is quite important here...
}
HTH,
Bee
- Original Message -
From: "Da
Thanks ! That's quite a nice hint~ I 'll digging in for more
that I suppose want to look for~~
Thanks,
Bee
- Original Message -
From: "NYIMI Jose (BMB)" <[EMAIL PROTECTED]>
To: "Bee" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Thu
How would MySQL compare with DBD::SQLite ?
I hope I can deal with as lease as the outter things...
more apperciate situation is without install other stuff,
but sort of modules.
Thanks in advise,
Bee
- Original Message -
From: "Mark Day" <[EMAIL PROTECTED]>
To: &
why you can call a module
without "module.pm". Note, module can call other module
as well, not just ".pl" can call modules.
HTH,
Bee
- Original Message -
From: "Harbhajan Julka" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, Novembe
that possible ?
Thanks in advise,
Bee
Thanks Jenda, That would be a big hint, but something I don't understand
from yours provided example, how do you know there's a class called
{PaperSize} ? What if I wanna do is just modifying the word or powerpoint
's author, last modify date, last saved person, company et
hello all,
I've just start my learning on perl, and recently still learning some basic syntax.
So I hope my question is still making sense.
I am now learning about how to write files and wondering is that possible
to inserting / overwriting bytes in files ( text / binary ). and I am on Win32.
A
Hi all,
Is there anyway to look up the current module's full path via
syntax or dollar sign vars ?
Thanks
x27;mypath' ?
Thanks
- Original Message -
From: "Jenda Krynicky" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, October 16, 2003 11:25 PM
Subject: Re: Module location
> From: "Bee" <[EMAIL PROTECTED]>
> > Is there anyway to l
> Depens on the OS.
>
> You may send the PERL5LIB system variable to something.
>
> If you happen to use ActivePerl you may also add library directories
> via the registry HKEY_LOCAL_MACHINE\Software\Perl. The values of
> "lib", "sitelib", "lib-" and "sitelib-"
> will be added to your @INC.
open FH, ">1.txt";
binmode FH;
binmode STDOUT;
print FH "123m,zxnc,mzxnc,mzncm,zxc";
close FH;
Why the output still a text file ?
> Bee wrote:
> > open FH, ">1.txt";
> > binmode FH;
> > binmode STDOUT;
> > print FH "123m,zxnc,mzxnc,mzncm,zxc";
> > close FH;
> >
> > Why the output still a text file ?
>
Thanks everybody, the way I tried to make fi
You would like to use this :
in your html page of your right frame.
Hope this help
- Original Message -
From: "Jack" <[EMAIL PROTECTED]>
To: "CGI1" <[EMAIL PROTECTED]>
Sent: Friday, November 07, 2003 8:11 AM
Subject: Simple CGI question
> Hello,
>
> I'm trying to redirect th
I am trying to write a script which plays a range (input) from a mp3 file.
Simply to say, a mp3 file is divided into 3 session, Audio data, audio header,
and IDvX tags.
What I will deal with my script is to get the bit rate from the header, and calc
the start-end position of the data from the aud
Anything I can do to working like this ?
print for ( 0.. 3410068347520) ;
Thanks in advise
Thanks a lot, Rob.
Thaz exactly what I am looking for... =)
- Original Message -
From: "Rob Dixon" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, January 01, 2004 4:12 AM
Subject: Re: Integer out of range.
> Bee wrote:
> >
> > A
Hi all, and Happy new year to East Asians folks here,
I have an idea to buy a pocket pc, but before I buy it, I hope to confirm
something...
1. Can Perl run on Windows CE or Palm ( Same as subject )
2. If I can, Is there any modules would helpful on develope my script for these
platforms ?
3. C
61 matches
Mail list logo
