Hi
I am trying a way to get input from user in GUI mode.. Like Inputbox in Visual
Basic.How do i go about?
with regards
D.P.S
This is what I came up with. Tested and works.
#!/usr/bin/perl -w
use strict;
open DATA, "ips.txt"; # this is the output file with the ip list
while () {
if ($_ =~ /\[(\w+\.\w+\.\w+\.\w+)\]/) {
print IPS "$1\n";
}
}
Chris Carver
Pennswoods.net
Mail Administrat
Hi,
How do I divide a variable in an array ?
Lets say element one need to be divided by 1000?
$line[1] = $line[1]/1000;
Thanks,
Henrik
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
> -Original Message-
> From: Dan Muey [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, August 05, 2003 12:27 PM
> To: [EMAIL PROTECTED]
> Subject: Large file line by line
>
>
> Howdt list.
>
> I've never had to work with really big files before( I'm used
> to tiny ones you can slurp in at o
Pablo Fischer wrote:
> Hi!
>
> Reading all these message about reading a 'big' file (I know that
> 180MB its not a big file), but what's the difference from reading
> like this:
>
> @file = ;
> foreach (@file) {
> print $_;
> }
Attemping to read in the whole file into memory while
use Archive::Zip;
...
my $member = $zip->memberNamed($zippedfile);
my $rc = $member->extractToFileNamed($unzippedfile);
if($rc =~ m/AZ_OK/) { print "ok -$rc-\n; } else { print "Bad -$rc-\n"; }
The code above *always* prints:
Bab -0-
But $unzippedfile is cre
I think your pattern match will only catch a literal AZ_OK, not the
constant. And I'm not sure, but AZ_OK might evaluate to 0. At least I
think I remember having trouble with that module because it returns 0 on
success, and I kept testing for TRUE/FALSE based on the return status.
-Original
Hi all,
I have a stored procedure that is defined as follows:
PROCEDURE Add_ComponentDetails(
p_ComponentID IN number,
p_PollingID IN number,
p_Answer IN varchar2,
p_ASNNumber IN varchar2)
In my perl code, I exec the following:
my $plsql_params = "'" . join("', '", $ASNNameHash->{compI
