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
that possible ?
Thanks in advise,
Bee
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
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: &
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
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
"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
data and some CLOB..
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
Hi,
Just a quick question, which perldoc talking about loops ?
for, while, do until... ? I just can't find it out
TIA,
Bee
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,
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
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
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
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>
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
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
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
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>
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
\$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>
; # 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>
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
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>
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
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>
(blessed) thing ?
So when I modify something in $y , and not affecting $z ?
Thanks in advise,
Bee
> 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>
> 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,
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
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:
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
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
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(
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
> > > > - 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
> 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
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
> > 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
> 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 )
> >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
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,
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
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 ?
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
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
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
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 ?!
&
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
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
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
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
Anything I can do to working like this ?
print for ( 0.. 3410068347520) ;
Thanks in advise
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
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
> 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
open FH, ">1.txt";
binmode FH;
binmode STDOUT;
print FH "123m,zxnc,mzxnc,mzncm,zxc";
close FH;
Why the output still a text file ?
> 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.
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
Hi all,
Is there anyway to look up the current module's full path via
syntax or dollar sign vars ?
Thanks
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
61 matches
Mail list logo
