"G.D. Bell" wrote:
> # Variables
> $alt_nick = "set_alt_nick";
> ...
> # Away Functions
> IRC::add_command_handler("gbell72", set_alt_nick);
> IRC::add_command_handler("gbell72|afk", set_alt_nick);
So what is going on here? I see a bareword being offered to a function. This seems
to me that it
Ramón Chávez wrote:
> Thank you very much guys.
>
> Rob, sorry but it didn't work
>
> open (DATOS, "$bd") || die "Error: no se puede abrir el
> archivo";
>
> while ($registro=) {}
Hi Ramon,
The empty brackets in the line above were meant to represent the whole body of the
Samuel Mauntz wrote:
> Thanks George, I thought that was something I had in earlier that I had
> accidentally deleted...I took your advice though and stuck that html header
> in there after the shebang...
Now try printing the content header BEFORE the shebang. Consider--when you are
accessing
Ben Crane wrote:
> Hi all,
>
> Is there a way of using perl's amazing
> pattern-matching skills within VB???I find using VB to
> query txt files, etc to be more cumbersome and less
> friendly than perl's.
I'm not sure about regexes, but I know that VB has the split function. It looks from
MSDN
"Fromm, Marc" wrote:
> Hi
>
> I created a script that reads a file and attaches a string infront of each read in
>item. When the file is saved with the changes though, each item has a blank line
>between the next item. The original text document does is single sapced.
>
> Original tesxt file
>
Peter,
#!/usr/bin/perl -w
use strict;
my %date_formats = (
ccyymmdd => { now => sub {
my @arr = localtime();
print 'Year ', 1900 + $arr[5] . ' Month '. sprintf("%02d",$arr[4] + 1)
. ' Day ' . sprintf("%02d",$arr[3]);
}
} );
& { $date_formats{ccyymmdd}{now} };
Same output as previous
Peter
I saw Jenda's note and I suggest the code needs simplification.
> P.S. you can see where I comment out the ccyymmdd_now function. That
> approach works, but is not what I'm shooting for.
>
> %date_formats = (
> # "ccyymmdd" => {now => \ccyymmdd_now()},
> "ccyymmdd" => {now => s
Madhu Reddy wrote:
> Hi,
> We are doing file operations on large files(more
> than 5GB).
> basically reading the file and validatiing the each
> record in in the file.
>
> we used Tie::File
> It took 35 min to read and count the number of lines
> in file of 8millions (500MB)
>
> following
Peter Farrar wrote:
> Hi All,
>
> I swear I've called subroutines this way before, but I can't find any
> examples.
> In this case, I'm looking to build some time/date functions.
> Regardless of what the actual code is supposed to do, the calling of
> subroutines as elements of a hash is causing me
Hi,
We are doing file operations on large files(more
than 5GB).
basically reading the file and validatiing the each
record in in the file.
we used Tie::File
It took 35 min to read and count the number of lines
in file of 8millions (500MB)
following is the script
Does anybody have a
Thomas Browner wrote:
> Is there away for perl enter an variable from the command line.
>
> For example:
>
> ./test.pl tom
>
>
>
>
>
> Thomas Browner
You have a number of options, but @ARGV holds what comes from the
command line. $ARGV[0] holds item 1, $ARGV[1] holds item 2, etc.
Bob-
This was extremely useful. Thanks for the tips.
Regards,
Jeff
--- Bob Showalter <[EMAIL PROTECTED]> wrote:
> Jeff Westman wrote:
> > I inherited this script, whose code is as follows:
> >
> > #!/usr/local/bin/perl -w
> > ...
> > # 'while' starts on line 42
> > while (($app_key, $ap
From: "John W. Krahn" <[EMAIL PROTECTED]>
> Peter Farrar wrote:
> > I swear I've called subroutines this way before, but I can't find
> > any examples. In this case, I'm looking to build some time/date
> > functions. Regardless of what the actual code is supposed to do,
> > the calling of subrouti
Yes, with $ARGV[0]. The number is the variable postion. 0 is the first.
#!/usr/bin/perl
$name = $ARGV[0];
print "Hello, $name!\n";
-Jose
- Original Message -
From: "Thomas Browner" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, February 07, 2003 2:04 PM
Subject: variable fro
On Fri, 7 Feb 2003 15:04:16 -0600, "Thomas Browner" <[EMAIL PROTECTED]>
wrote:
> Is there away for perl enter an variable from the command line.
>
> For example:
>
> ./test.pl tom
>
perldoc perlvar (I think)
Input on the command line is aut
Is there away for perl enter an variable from the command line.
For example:
./test.pl tom
Thomas Browner
Jeff Westman wrote:
> I inherited this script, whose code is as follows:
>
> #!/usr/local/bin/perl -w
> ...
> # 'while' starts on line 42
> while (($app_key, $app_value) = each %app_file_count) {
> delete ($app_file_count{$app_key});e
> }
>
> What is the "hanging 'e' on line 43?
Peter Farrar wrote:
>
> Hi All,
>
> I swear I've called subroutines this way before, but I can't find any
> examples.
> In this case, I'm looking to build some time/date functions. Regardless of
> what the actual code is supposed to do, the calling of subroutines as
> elements of a hash is causi
Jeff Westman wrote:
>
> I inherited this script, whose code is as follows:
>
> #!/usr/local/bin/perl -w
> ...
> # 'while' starts on line 42
> while (($app_key, $app_value) = each %app_file_count) {
> delete ($app_file_count{$app_key});e
> }
>
> What is the "hanging 'e' on line
Jeff Westman wrote:
> I inherited this script, whose code is as follows:
>
> #!/usr/local/bin/perl -w
> ...
> # 'while' starts on line 42
> while (($app_key, $app_value) = each %app_file_count) {
> delete ($app_file_count{$app_key});e
> }
>
> What is the "hanging 'e' on line 43?
Hi All,
I swear I've called subroutines this way before, but I can't find any
examples.
In this case, I'm looking to build some time/date functions. Regardless of
what the actual code is supposed to do, the calling of subroutines as
elements of a hash is causing me grief. I am receiving the foll
>
> I inherited this script, whose code is as follows:
>
> #!/usr/local/bin/perl -w
> ...
> # 'while' starts on line 42
> while (($app_key, $app_value) = each %app_file_count) {
> delete ($app_file_count{$app_key});e
It's the letter 'e' after the ; in the line above.
> }
>
I inherited this script, whose code is as follows:
#!/usr/local/bin/perl -w
...
# 'while' starts on line 42
while (($app_key, $app_value) = each %app_file_count) {
delete ($app_file_count{$app_key});e
}
What is the "hanging 'e' on line 43? It is not a subroutine call, and ther
Just out of curiousity, I assume your script sends a message back to the sender asking
for verification / an away message.
How do you incorporate IRC into it?
What is it's overall function?
Just curious because I've been wanting to do something similar but the IRC thing
sounded interesting.
D
>
> Dan Muey wrote:
> > Hello all,
> > Has any body done this/know how to dit/know if it's even possible??
> >
> >
> > __SHORT VERSION__
> > How do I / Is it possible to -- use Net::FTP to send a file to a
> > remote server that isn't an actual file but rather a
> variable with the
> > file's
On Fri, 7 Feb 2003 13:53:03 -0500 (EST), "G.D. Bell" <[EMAIL PROTECTED]> wrote:
> Hi all
>
> I've started composing this script but seem to be a
> little stuck at the moment ..when I run script as it
> is presntly these errors occur..Name "main::a
on vr, 07 feb 2003 16:50:08 GMT, Thomas Browner wrote:
> Is there a way to use perl to change nt password. If so could some tell
> me how to do it.
See
http://www.roth.net/perl/adminmisc/#SetPassword
--
felix
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [
G.D. Bell wrote:
> Hi all
>
> I've started composing this script but seem to be a
> little stuck at the moment ..when I run script as it
> is presntly these errors occur..Name "main::alt_nick"
> used only once: possible typo at maria.pl line 26.
> Name "main::awaytime" used only once: possible typo
> > I'm trying to read the last line on a Plain text File.
>
> The following was so well written by John I think it's worth
> repeating. Thanks John!
Absolutely. This should be made into a FAQ !! (or is there one already?)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional command
Rgíón «hávkú wrote:
> I'm trying to read the last line on a Plain text File.
The following was so well written by John I think it's worth
repeating. Thanks John!
John W. Krahn wrote:
>
> 1) Install http://search.cpan.org/author/URI/File-ReadBackwards-0.98/
>
> use File::ReadBackwards;
> my $bw =
Dan Muey wrote:
> Hello all,
> Has any body done this/know how to dit/know if it's even possible??
>
>
> __SHORT VERSION__
> How do I / Is it possible to -- use Net::FTP to send a file to a
> remote server that isn't an actual file but rather a variable with
> the file's contents?
>
> EG ::
> $ftp-
Hi all
I've started composing this script but seem to be a
little stuck at the moment ..when I run script as it
is presntly these errors occur..Name "main::alt_nick"
used only once: possible typo at maria.pl line 26.
Name "main::awaytime" used only once: possible typo at
maria.pl line 28.
Name "ma
On Fri, 7 Feb 2003 12:39:14 -0600, "Dan Muey" <[EMAIL PROTECTED]> wrote:
> > > Any ideas/different modules/etc..
> > >
> >
> > Though my understanding may not be complete, and it would
> > take two scripts and may not be portable off of *nix s
>
> On Fri, 7 Feb 2003 10:32:12 -0600, "Dan Muey"
> <[EMAIL PROTECTED]> wrote:
>
> > Hello all,
> > Has any body done this/know how to dit/know if it's even possible??
> >
> >
> > __SHORT VERSION__
> > How do I / Is it possible to -- use Net:
Thank you very much guys.
Rob, sorry but it didn't work
open (DATOS, "$bd") || die "Error: no se puede abrir el
archivo";
while ($registro=) {}
($file, $vot_tot, $ult_vot, $sum_vot) = split(/:/,$registro);
$lineas = $.;
close (DATOS);
On Fri, 7 Feb 2003 10:32:12 -0600, "Dan Muey" <[EMAIL PROTECTED]> wrote:
> Hello all,
> Has any body done this/know how to dit/know if it's even possible??
>
>
> __SHORT VERSION__
> How do I / Is it possible to -- use Net::FTP to send a file to
Ramón Chávez wrote:
> I'm trying to read the last line on a Plain text File.
>
> But when I use:
>
> open (DATOS, "$bd") || die "Error: no se puede abrir el archivo";
> while
> ATOS>){
> $registro = ;
> }
>
> I don't get any value on $registro
>
> I need to insert $ini
The "while()" is pulling a line, as well as the "$registro =
".
while () { # reads a line into $_
$registro = ; # reads a SECOND line
}
My guess is that the while() is reading the last line of the file, leaving
nothing for $registro.
Use this instead (although there is probably a more efficie
Sorry.
Last message had an error.
--
I'm trying to read the last line on a Plain text File.
But when I use:
open (DATOS, "$bd") || die "Error: no se puede abrir el archivo";
while
ATOS>){
$registro = ;
}
I don't get any value on $registro
I ne
Is there a way to use perl to change nt password. If so could some tell
me how to do it.
Thomas
I'm trying to read the last line on a Plain text File.
But when I use:
open (DATOS, "$bd") || die "Error: no se puede abrir el archivo";
while
ATOS>){
$registro = ;
}
I don't get any value on $registro
I need to insert $inicio = ; --
This way to get the the las
Hello all,
Has any body done this/know how to dit/know if it's even possible??
__SHORT VERSION__
How do I / Is it possible to -- use Net::FTP to send a file to a remote server that
isn't an actual file but rather a variable with the file's contents?
EG ::
$ftp->("$html_code","newfile.html")
> The English of what I want to do is "If this remote value is
> not defined, then skip over it and proceed on to the next
> entry in the list."
>
>
>
> I want to avoid an error is the key doesn't exist. Every
> variation of IF EXISTS I use doesn't work correctly. Is there
> something obvio
>
>
> Thanks George, I thought that was something I had in earlier
> that I had accidentally deleted...I took your advice though
> and stuck that html header in there after the shebang and
> just before I printed out any html. Unfortunately your
> suggestion didn't fix the problem. The h
From: Ben Crane <[EMAIL PROTECTED]>
> Is there a way of using perl's amazing
> pattern-matching skills within VB???I find using VB to
> query txt files, etc to be more cumbersome and less
> friendly than perl's...I was wondering whether anyone
> had been able to utilize perl from within VB, and if
Searching from google gives one the following :
http://sources.redhat.com/ml/cygwin/2000-07/msg00975.html
The seach : http://www.google.be/search?q=Perl+in+VB&ie=UTF-8&oe=UTF-8&hl=nl&meta=
HTH,
José.
> -Original Message-
> From: Ben Crane [mailto:[EMAIL PROTECTED]]
> Sent: Friday, Febr
Hi all,
Is there a way of using perl's amazing
pattern-matching skills within VB???I find using VB to
query txt files, etc to be more cumbersome and less
friendly than perl's...I was wondering whether anyone
had been able to utilize perl from within VB, and if
so, how?
I'm presuming using a perl
N. Ganesh Babu wrote:
> Hi,
>
> When I execute a dos command with system() in perl5.4 (djgpp dos
> version) it is not working. Can any one please help in executing the
> dos commands in perl.
Hi Ganesh.
You should be able to say simply:
my $result = system ("command");
but without knowing w
R. Joseph Newton wrote:
> Rob Dixon wrote:
>>
>> print my $t="href=\"(.*?)\">";
>> outputs
>> href="(.*?)">
>
> H. this gets me thinking. How does that translate into a regex
> when such a variable is passed in? Would Perl do the escaping and
> feed the regex something like:
>
> /hre
Sashidhar wrote:
> I may have to change the length of the files. Is there no way, like
> manipulating the inode entries to reflect any changes in the length.
> Ofcourse, I realize that this is specific to the linux/unix env.
>
The problem is a limitation of the filing system itself. The starting
p
Net::Telnet module is probably the starting place ...
http://search.cpan.org/author/JROGERS/Net-Telnet-3.03/lib/Net/Telnet.pm#SYNOPSIS
HTH,
José.
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Friday, February 07, 2003 10:05 AM
> To: [EMAIL PROTECTED]
Hi,
When I execute a dos command with system() in perl5.4 (djgpp dos
version) it is not working. Can any one please help in executing the dos
commands in perl.
Regards,
Ganesh
--
N. Ganesh Babu
Asst. Production Manager
Apex Logical Dataconversion Pvt. Ltd.
303 & 304 M.G.R. Estate
Dwarakapuri C
Hi all,
i need to execute a C executable on a remote system from mine and get
the results(like output files etc) back on to my system. how do i do this
with perl ? which module do i need to use?
enlighten me --
KM
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mai
On Fri, 07 Feb 2003 00:13:47 -0800, Paul Harwood wrote:
> The English of what I want to do is "If this remote value is not
> defined, then skip over it and proceed on to the next entry in the
> list."
The canonical ways to do it are either
foreach my $item (@list) {
next unless defined $item
On Friday 07 Feb 2003 5:04 am, Fromm, Marc wrote:
> Hi
>
> I created a script that reads a file and attaches a string infront of each
> read in item. When the file is saved with the changes though, each item
> has a blank line between the next item. The original text document does is
> single sap
Thanks George, I thought that was something I had in earlier that I had
accidentally deleted...I took your advice though and stuck that html header
in there after the shebang and just before I printed out any html.
Unfortunately your suggestion didn't fix the problem. The hosting company
I'm work
The English of what I want to do is "If this remote value is not
defined, then skip over it and proceed on to the next entry in the
list."
I want to avoid an error is the key doesn't exist. Every variation of IF
EXISTS I use doesn't work correctly. Is there something obvious I am
missing?
Hi
I created a script that reads a file and attaches a string infront of each read in
item. When the file is saved with the changes though, each item has a blank line
between the next item. The original text document does is single sapced.
Original tesxt file
item1
item2
item3
Saved text fil
The English of what I want to do is "If this remote value is not
defined, then skip over it and proceed on to the next entry in the
list."
I want to avoid an error is the key doesn't exist. Every variation of IF
EXISTS I use doesn't work correctly. Is there something obvious I am
missing?
59 matches
Mail list logo
