Chad,
It isn't as big of a pain in the ass as you may think...Consider and
try
=
use strict;
my @firstList = qw(Monday Tuesday Thursday Friday Saturday);
my @secondList = qw(January Febuary March April May June July);
printMultipleArrays([EMAIL PROTECTED],[EMAIL
I have set my script permissions to 755, 777, and many other settings. I use
755 beacuase thats the right one to use for the net.
I tell you to not worry about the path because I dont really want the path
on my server revealed for security reasons. All that matters is that the
script is in my
I'm having difficulty creating a popup menu. I want a select list,
like so:
select name=phoneLabel
option value=WorkWork
option value=Home selectedHome
option value=MobileMobile
option value=PagerPager
option value=Home FaxHome Fax
option value=Work FaxWork Fax
/select
It seems I should
- Original Message -
From: Harry Putnam [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, June 17, 2003 1:35 AM
Subject: Re: Capture a printing function into an array
Mark G [EMAIL PROTECTED] writes:
I am a newbie as well but this line makes no sence to me why do you have
- Original Message -
From: Bryan Harris [EMAIL PROTECTED]
To: Beginners Perl [EMAIL PROTECTED]
Sent: Tuesday, June 17, 2003 1:33 AM
Subject: Re: while ()
#!/usr/bin/perl
my $showme = shift
or die Usage: $0 PATTERN [FILES]\n;
while (defined(my $line = )) {
$_
Charles K. Clarkson [EMAIL PROTECTED] writes:
$$line =~ s/[Ss]ource/Src/g;
$$line =~ s/[Dd]estination/Dst/g;
$$line =~ /^[^ ]+, (\d[^ ]+ \d[^ ]+).*(Src[^ ]+ \d+).*(Dst[^ ]+
Where do I look for the details on the meaning of the double `$'?
--
To unsubscribe, e-mail:
Why does this program print yes def but not yes
xyz? It does print xyz:def, so I don't understand
why it does not print yes xyz.
{
my %x = ( xyx = 'abc', d = 'y', f = 'g' );
$x{def} = fhi;
print qq($_ : ).$x{$_}.qq(\n) foreach (keys %x);
foreach (keys %x) { print yes xyz\n if ($_ =~
Mark G [EMAIL PROTECTED] writes:
[]
Is there something wrong with printing the line number?
Nothing @all. you dont need to do $., $. is fine by it self so can scrap
that to
printf %s %s %-28s %s\n, $., $2, $4, $6;
I wanted the brackets in the output.
[...]
. . . . . . . . . . . . .
On Mon, Jun 16, 2003 at 11:39:30PM -0700 Harry Putnam wrote:
Charles K. Clarkson [EMAIL PROTECTED] writes:
$$line =~ s/[Ss]ource/Src/g;
$$line =~ s/[Dd]estination/Dst/g;
$$line =~ /^[^ ]+, (\d[^ ]+ \d[^ ]+).*(Src[^ ]+ \d+).*(Dst[^ ]+
Where do I look for the
Richard Heintze said:
Why does this program print yes def but not yes
xyz? It does print xyz:def, so I don't understand
why it does not print yes xyz.
{
my %x = ( xyx = 'abc', d = 'y', f = 'g' );
Presumably because the key you specified is xyx, not xyz.
$x{def} = fhi;
print
On Mon, Jun 16, 2003 at 10:03:50PM -0700 Richard Heintze wrote:
Why does this program print yes def but not yes
xyz? It does print xyz:def, so I don't understand
why it does not print yes xyz.
{
my %x = ( xyx = 'abc', d = 'y', f = 'g' );
^^^
$x{def} = fhi;
print
Hi Rob,
No, you're not heading down the wrong path, you just need the Oracle
**client** installed on your local machine.
When recompliling DBI and DBD make sure you've got the following set
correctly (appropriate to your set up) ...
ORACLE_HOME=/export/home/oracle/OraHome1
On Mon, Jun 16, 2003 at 10:33:28PM -0700, Bryan Harris wrote:
Pretty neat, Steve, thanks. The only thing that'd be nice to
fix is making it so it gives the usage line if you enter:
% showme 'ah\d'
instead of waiting for STDIN. Aside from that it works perfectly.
And I learned a few
Hi All
I my query a MySQL database and have the following code
while (@temp = $table-fetchrow_array ()) {
some code
{
my problem is that I want the results from the database query to be access by
using $temp[0] for the first row then $temp[1] for the second row and so on.
So
Hi all,
I find myself with a rather odd problem, part of a script I'm working on
needs to be run as root, another part of the same script need to be run as a
different user.
The script is started by root, how can I then switch to a different user for
a given subroutine/section.
The only way I
My program is terminating for no reason apparent to
me!
Using the debugger I see that $$curr_true is a 4
element array whose values are undef, 1, 4, 7.
$ev_count is 1.
Why would both my debugging session suddenly and my
cgi script end when I execute that last statement?
Thanks,
Siegfried
On Tue, Jun 17, 2003 at 04:34:04AM -0400, Steve Grazzini wrote:
On Mon, Jun 16, 2003 at 10:33:28PM -0700, Bryan Harris wrote:
Pretty neat, Steve, thanks.
Well don't thank me too soon!
Finally occurred to me to try using ARGV in slurp mode, which does
indeed do the Right Thing:
I can call a method on an object using the following:
$objref-func()
However, if I try to call this using a symbolic reference:
my $func_name = $objref-func;
{$func_name)();
then I get the following error:
Undefined subroutine main::$objref-func called..
The problem is that the perl compiler
Tirthankar C. Patnaik wrote:
Folks,
This may be a naive query, but dashed if I know it.
I have a large dataset, of financial data, and I need to check the
results of some trading strategies on it. I have read the data into a
hash of hashes of hashes, as I believe it's better than
In a message dated 6/16/03 11:35:03 AM Pacific Daylight Time,
[EMAIL PROTECTED] writes:
I tried a couple of those ideas.
I put a BEGIN statement in the script I'm trying to open and
to my surprise
it's opened. I'm still getting Error: No such file or directory
The script is very
Tom Gazzini said:
I can call a method on an object using the following:
$objref-func()
However, if I try to call this using a symbolic reference:
my $func_name = $objref-func;
{$func_name)();
then I get the following error:
Undefined subroutine main::$objref-func called..
There is a
I have a script that opens a socket on my web server. The script doesn't
close the socket. I opened the socket yesterday. When signing back on today the
socket was closed and my scripts returns an error.
How do I keep a socket open indefinately?
I'm getting this error on my unix server from my socket script. The script
does fine on my localhost win98 box. What does Illegal Seek mean?
Harry Putnam wrote:
:
: Mark G [EMAIL PROTECTED] writes:
:
: Nothing @all. you don't need to do $., $. is
: fine by it self so can scrap that to
: printf %s %s %-28s %s\n, $., $2, $4, $6;
:
: I wanted the brackets in the output.
printf %s %s %-28s %s\n, $., $2, $4, $6;
HTH,
Charles K.
Hi,
i own a webserver and i have site on my
own PC. I want that the visitors on my
server website are able to see if my local PC
is online. I've got linux,apache and ISDN on
my own PC and i use a dyn dns tool so the
IP is not the problem (i've got a
somename.no-ip.com) adress.
I want i.e. a
Hi Everybody,
I have a data structure as follows (I used XML::Simple to read the XML
file)
$VAR1 = {
'device' = {
'sysObjectID' = '.1.3.6.1.4.1.9.1.219',
'chassis' = {
'chassisType' =
Ops I've just been catching up on me list reading, I'd better go and look at
$ and $ then. Dow
Brian
-Original Message-
From: Brian Ling
Sent: 17 June 2003 09:45
To: '[EMAIL PROTECTED]'
Subject: Run as a different user
Hi all,
I find myself with a rather odd problem, part of a
I'm curious if it's possible to make a web page that controls:
1. testing to see if a socket is available
2. if not searching for another socket #
3. use html buttons to open and close sockets.
Does anyone have an example of this?
Hamish Whittal said:
Appologies for not making myself clear first time round. Let me try that
again:
I have said XML file, which when read in using XML::Simple leaves me
with below data structure.
Now, I want to end up with:
$NEWSTRUCT = {
'device' = {
'sysObjectID' =
Hi,
Howdy,
i own a webserver and i have site on my
own PC. I want that the visitors on my
server website are able to see if my local PC
is online. I've got linux,apache and ISDN on
my own PC and i use a dyn dns tool so the
IP is not the problem (i've got a
somename.no-ip.com) adress.
Howdy,
i own a webserver and i have site on my
own PC. I want that the visitors on my
server website are able to see if my local PC
is online. I've got linux,apache and ISDN on
my own PC and i use a dyn dns tool so the
IP is not the problem (i've got a
somename.no-ip.com) adress.
I
Hi All
Howdy
I my query a MySQL database and have the following code
while (@temp = $table-fetchrow_array ()) {
some code
{
I think you mean } not { :)
my problem is that I want the results from the database query
to be access by using $temp[0] for the first row then
On server have a script that calls another script on your
home machine
via LWP. If it gets reply back display I'm up and running image If
not reply then display I'm asleep now image.
HTH
Dmuey
Sorry, I don't like those 'two-scripts' solutions,
i'd rather prefer something like
--howdy.
--i think i am getting closer to solving this, but
--i have ran into a problem.
--the below program works to the point where it
--will return the data, but not ALL of the data.
--for example, i get only about 50 or so lines when
--if i do the queries by hand, i get over 200 with
Hello Dan
Thanks for the response. I tried your suggestion but I still
get the differing sizes... So I'm still looking for a solution.
my($size) = `du -sb directory-path`;
My suggetion just helped you get only the number of bytes it returned into $size
instead of the
Bytes,
--howdy.
Howdy
--i think i am getting closer to solving this, but
--i have ran into a problem.
--the below program works to the point where it
--will return the data, but not ALL of the data.
--for example, i get only about 50 or so lines when
--if i do the queries by hand, i get
--howdy:
--thanks for the reply and the assist.
--background and overview:
--i am trying to port some tables to
--Oracle 9i on my linux box. With PostgreSQL,
--i can do a pg_dump and get the table structure
--and data ... but because there are some differences
--between the two DBs, I can't
Shaunn Johnson wrote:
--howdy.
Hello,
[snip]
my $list=userlist.txt;
my $file=newlist.txt;
my $local_dir=cwd;
open (DIR, $local_dir) or die can nae open local directory: $!;
You cannot open a directory with open(), you need to use opendir() for
that. However you are not using the
Johnson, Shaunn wrote:
--howdy.
--i think i am getting closer to solving this, but
--i have ran into a problem.
--the below program works to the point where it
--will return the data, but not ALL of the data.
--for example, i get only about 50 or so lines when
--if i do the queries by
$sth-execute($dbh-selectrow_array('select distinct
tableowner from
pg_tables'));
The selectrow_array() method returns only the first row from
the inner query.
Oh yeah, duh, sorry about that, It was a Classic Monday yesterday and it still is
today!
Sorry for giving you bad info.
Dan
Hello,
Using Perl 5.001 (can't upgrade it, don't ask), I have tried to assign an
array to the following hash reference 2 ways, but I can't seem to get it:
@[EMAIL PROTECTED];
gives an error:
Can't use subscript on associative array slice at ./pump.pl line 60, near
$pumpName}
and:
It sounds more like you want the fetchall_arrayref function. This will
return all the records into a single array reference that can accessed by
$temp-[x][y] where x defines the record and y defines the field. For
example:
my $dbh = DBI-connect('DBI:mysql:dbname','user') or die Couldn't open
Thanks for all the suggestions folks!
I had been trying to find the size of my entire web site by using the
'du -sb my-home-directory' command in a Perl script to be executed
from the Web.
But I kept coming up with a diffence of 2,177,024 bytes between the
output of the 'du' command when
I think you need to store an array ref(erence).
$hash{$what}{$ever} = [EMAIL PROTECTED];
--jess
-Original Message-
From: LoBue, Mark [mailto:[EMAIL PROTECTED]
Sent: Tuesday, June 17, 2003 2:18 PM
To: [EMAIL PROTECTED]
Subject: Assigning an array to a hash
Hello,
Using Perl
Tony Frasketi wrote:
Thanks for all the suggestions folks!
I had been trying to find the size of my entire web site by using the
'du -sb my-home-directory' command in a Perl script to be executed
from the Web.
But I kept coming up with a diffence of 2,177,024 bytes between the
output of
-Original Message-
From: Balint, Jess [mailto:[EMAIL PROTECTED]
Sent: Tuesday, June 17, 2003 12:46 PM
To: 'LoBue, Mark'; [EMAIL PROTECTED]
Subject: RE: Assigning an array to a hash
I think you need to store an array ref(erence).
$hash{$what}{$ever} = [EMAIL PROTECTED];
LoBue, Mark wrote:
Hello,
Using Perl 5.001 (can't upgrade it, don't ask), I have tried to
assign an array to the following hash reference 2 ways, but I can't
seem to get it:
@[EMAIL PROTECTED]; gives an
error: Can't use subscript on associative array slice at ./pump.pl
line 60, near
Hi Bob
Thanks for the response. I checked the system error log and didn't find
any Permission Denied errors for the directory in question (xxxtemp).
Below is a listing of the directory which contains the offending
subdirectory 'xxxtemp'. 'xxxtemp' was an older version of subdirectory
'temp'.
No, a user needs execute permission on a directory in order to traverse
it (i.e., list the contents).
--
Jason Santos
Sr. Unix System Administrator
APS/Pinnacle West
Phoenix, AZ USA
-Original Message-
From: Tony Frasketi [mailto:[EMAIL PROTECTED]
Sent: Tuesday, June 17, 2003 1:13 PM
hi, can i use this:
open (DU1,| du -h -a /tmp/all 2/dev/null);
open (DU2,| find -type d sed| s/^\./d \./ /tmp/all);
open (DU3,| sort +1 /tmp/all /tmp/LIST);
close(DU1);
close(DU2);
close(DU3);
with magic open? i think sed is not supprted? how can i do exactly
this another way? if
Hi Jason
You are right! I checked it out with a temp directory and played with
the permissions.
Thanks a bunch!
Tony Frasketi
[EMAIL PROTECTED] wrote:
No, a user needs execute permission on a directory in order to traverse
it (i.e., list the contents).
--
Jason Santos
Sr. Unix System
Hi all,
I am new to this group. I need help regarding a perl script which
parses the web log file, access_log.
The format of the access_log is:
127.0.0.1 - - [15/Jun/2003:13:54:02 -0100] GET / HTTP/1.1 200
34906
The goal is to
1. Perform a count of the pages for the given
hi, can i use this:
Could you explain in words what you are trying to do?
It looks to me like all you want to do is execute command line commands which you
don't need to open a pipe for.
Try
qx(du -h -a /tmp/all 2/dev/null);
qx(find -type d sed| s/^\./d \./ /tmp/all);
qx(sort +1
Help needed for Perl script
Hi all,
I am new to this group. I need help regarding a perl script which parses the
web log file, access_log.
The format of the access_log is:
127.0.0.1 - - [15/Jun/2003:13:54:02 -0100] GET / HTTP/1.1 200 34906
The goal is to
1. Perfom a count of the
Hi all,
Sorry for the duplicate posting. Pl. ignore post #48415.
Regards
Anand
-
Do you Yahoo!?
SBC Yahoo! DSL - Now only $29.95 per month!
Hello faithful list!
Has anyone worked with Microsoft Access Databases with perl?
I either need to run a query on a remote Access Database or
Have the people that have that database save it in CSV format
or something to import it into mysql.
Any ideas how best to deal with Access Databases
Dan,
Has anyone worked with Microsoft Access Databases with perl?
I either need to run a query on a remote Access Database or
Have the people that have that database save it in CSV format
or something to import it into mysql.
Any ideas how best to deal with Access Databases with perl?
Here's how I used to connect using DBI and DBD::ODBC. I would pass the
access database's name as a parameter. From here you can just use dbi and
SQL to manipulate the DB. If you need more help with DBI I would recommend
posting in the dbi-users group.
my $dbh =
- Original Message -
From: Jaschar Otto [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, June 17, 2003 9:34 AM
Subject: RE: RE: Check if webserver is online
Howdy,
i own a webserver and i have site on my
own PC. I want that the visitors on my
server website are able to
Hello,
I am trying to locate the perl code for the opcode -B or stat but I am getting lost
in the maze of all the files. Would appreciate it if someone could pls direct me to
the actual file where the algo for -B file test switch lies.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
module Apache::ParseLog would help you !!
--
From: Anand Ayyagary[SMTP:[EMAIL PROTECTED]
Sent: Wednesday, June 18, 2003 1:02 AM
To: '[EMAIL PROTECTED]'
Subject: Parsing the Apache web log file, access_log
Help needed for Perl script
Hi all,
I am new to
Finally occurred to me to try using ARGV in slurp mode, which does
indeed do the Right Thing:
#!/usr/bin/perl -l
use strict;
use warnings;
die usage() if (@ARGV == 0)
or (@ARGV == 1 and -t STDIN);
my $pattern = shift;
local $/;
62 matches
Mail list logo