${*{$::{sym}}{HASH}}{name};
As we know, $::{sym} == *main::sym, it's a typeglob.
but what is **main::sym? and the same,what is *{$glob}?thanks.
On 12/6/05, Flemming Greve Skovengaard <[EMAIL PROTECTED]> wrote:
>
> Wiggins d'Anconia wrote:
> >
> > Now that you understand it, replace it with $sym-
On Mon, 5 Dec 2005, Moon, John wrote:
> while ($line = <>) {
> next if $. <= 10;
> ...
> }
CMIIW, this one will check (if $.) for each of the line.
thx
.dave
http://www.davidsudjiman.info
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED
On Mon, 5 Dec 2005, Ron McKeever wrote:
> Hello,
>
> I would like to skip the first ten lines of output from tail, then print any
> new records matching my array, but I seem to be stuck, below will run but
> nothing prints:
> tail /var/log/messages is piped to it...
>
> #!/usr/bin/perl
>
> my
From: Ron McKeever [mailto:[EMAIL PROTECTED]
Sent: Monday, December 05, 2005 11:50 AM
To: beginners@perl.org
Subject: Skip then print
Hello,
I would like to skip the first ten lines of output from tail, then print
any new records matching my array, but I seem to be stuck, below will
run but noth
I've read in multiple places that the format of hashed/crypted/salted data
should look something like so:
$magic_number$ + salt + data
It looks like the magic number portion is specific to the type of algorithm
used... ie:
MD5= $1$
Blowfish = $2$
Apache= $arp1$
Can someone point me
I had found a solution:
my $num_day = 72 * 60 * 60 *24;
my $result = $today - $num_day;
my $end = strftime "%Y-%m-%d", localtime($result);
But Timothy, I see that your solution is better :), all in one line.
Thanks to all you.
- Original Message -
From: "Timothy Johnson" <[EMAIL PROTECT
Wiggins d'Anconia wrote:
Now that you understand it, replace it with $sym->{name} so the next
person doesn't have to ask. Unless you are using a really old Perl.
Actually that should be *sym->{name} instead of $sym->{name} ( or %sym->{name}
but that's deprecated ).
Else you get "Variable "$sy
Hi vmalik -
At 2005-12-05, 07:09:51 you wrote:
>I am assuming that localtime() returns the time in unix file format (number of
>seconds since 12:00 AM on January 01, 1970). Why don't you convert 72 days to
>seconds and subtract that number from the output of localtime()?
No. time() returns epo
localtime() returns an array with populated with the details about the
current time and date (unless you feed it a date in Perl time() format).
The key, then is to get your text date into Perl time format. Some
modules that can help you are Date::Manip, Date::Calc, and Time::Local.
I prefer the
I currently have written a socket script that creates a socket connection
to a remote socket. Passes some values, and the remote script then takes
those values and passes them to a system() call.
The local script then waits for the remote script to send a response back.
Since the local script has
Adriano Ferreira wrote:
> On 12/5/05, Jennifer Garner <[EMAIL PROTECTED]> wrote:
>
>>print ${*{$::{sym}}{HASH}}{name};
>
>
>>How to analyse the last sentence of that code?Thanks.
>
>
>>From "perldoc perlref"
>
>7. A reference can be created by using a special syntax, lovingly
>
Ron McKeever wrote:
I would like to skip the first ten lines of output from tail
If you want the last line of a file, you can get tail to print only
that. See `man tail`.
$ tail -n 1
--
Just my 0.0002 million dollars worth,
--- Shawn
"Probability is now one. Any problems that are
I am assuming that localtime() returns the time in unix file format (number of
seconds since 12:00 AM on January 01, 1970). Why don't you convert 72 days to
seconds and subtract that number from the output of localtime()?
For example, 72 days = 72 x 3600 x 24 seconds = 6220800 seconds
So, try:
Hi to all !!!
Now I have a new trouble with dates. How can I know the date of 72 days ago ?.
For example for get 2005-12-05, I do this
use POSIX qw(strftime);
my $today = strftime "%Y-%m%d", localtime();
I would like to get this date: 2005-09-21.
Thanks list.
--
Hello,
I would like to skip the first ten lines of output from tail, then print any
new records matching my array, but I seem to be stuck, below will run but
nothing prints:
tail /var/log/messages is piped to it...
#!/usr/bin/perl
my @names = ("nb","tp","ape","berry","jab");
my $log = "/local/
Mazhar,
try:
$telnet->waitfor(Match => '/login: $/i');
and
$telnet->waitfor(Match => '/password: $/i');
Vishal,
Right, you want to wait for the device to return something that will match the
expression between the slashes. In that example, you'd be waiting for the
device to return a login prom
Hey Mazhar,
I don't know much about perl, but in the $telnet->waitfor method, what does the
weird parameter mean ('/login: $/i')? I thought that $ means a scalar variable
in perl. What do the forward slashes do here? Some sort of regular expression??
Vishal
Quoting Mazhar <[EMAIL PROTECTED]>:
On 12/5/05, Jennifer Garner <[EMAIL PROTECTED]> wrote:
> print ${*{$::{sym}}{HASH}}{name};
> How to analyse the last sentence of that code?Thanks.
>From "perldoc perlref"
7. A reference can be created by using a special syntax, lovingly
known as the *foo{THING} syntax. *foo{T
But it will fail if we have spaces before $modtager = " 45247";
You should probably write like this.
#!/usr/bin/perl
$modtager = "45247";
$modtager =~ s/^\s+//g; # deletes all leading spaces in variable
$modtager =~ s/^(45)//; # guarantees match of 45
-Sharif
On 12/2/05, Alexandre Checin
Hi,lists,
Seeing this code please:
our %sym = (
name => 'flower',
age => 23,
);
print ${*{$::{sym}}{HASH}}{name};
The result of printing is : flower.
How to analyse the last sentence of that code?Thanks.
Hi Folks,
I have installed the module NET::TELNET from CPAN and when i try to
execute the below simple pgm,
---
use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>100,Errmode=>'die');
$telnet->open('202.177.129.37');
$teln
Octavian Rasnita am Montag, 5. Dezember 2005 10.58:
> From: "John Doe" <[EMAIL PROTECTED]>
>
> > You may have a too old version of mysql / DBD::mysql, but it's just a
>
> guess
>
> > since you didn't provide version information.
>
> I am using MySQL 5.0.16-standard and the latest DBD::mysql (3.000
From: "John Doe" <[EMAIL PROTECTED]>
> You may have a too old version of mysql / DBD::mysql, but it's just a
guess
> since you didn't provide version information.
>
I am using MySQL 5.0.16-standard and the latest DBD::mysql (3.0002).
> Otherwise, you may have noticed the following sentence in t
Octavian Rasnita am Montag, 5. Dezember 2005 10.05:
[...]
> Oh yes MySQL was running when I have tried to install DBD::mysql.
> I was able to connect to it using "mysql" command.
> But it was using /tmp/mysql.sock socket defined in my.cnf.
>
> However, the "make test" command told that it cannot co
From: "Mazhar" <[EMAIL PROTECTED]>
I think the MYSQL service is not running on your system, Just execute the
below commands
service mysqld restart
I think this might solve your problem
Oh yes MySQL was running when I have tried to install DBD::mysql.
I was able to connect to it using "mysql" c
I think the MYSQL service is not running on your system, Just execute the
below commands
service mysqld restart
I think this might solve your problem
Regards
Mazhar
On 12/4/05, John Doe <[EMAIL PROTECTED]> wrote:
>
> Octavian Rasnita am Samstag, 3. Dezember 2005 19.50:
> > Hi,
> >
> > I have tr
26 matches
Mail list logo
