IN NT/WIN2K land -
What is the easiest way list out remote share directories AND their disk
space usage - similar to the du -s command in UNIX.
I have been looking at win32::? modules but nothing seems to fit - or is it
time to create a WSC? UGH!
For example I want to UNC path into a server sh
> sub foo {
>my @this_array = ( "one", "two", "three" );
>
>bar ( @this_array );
> }
>
> sub bar {
>my @that_array = @_;
> }
>
> So I'd pass a reference instead:
>
> sub foo {
>my @this_array = ( "one", "two", "three" );
>
>bar ( \@this_array );
> }
>
> sub bar {
>my
Dear All,
I have problem in opening the file and closing it in the below mentioned
script. Kindly help me to fix it.
Thanks in advance.
Thanks
Suresh A.
#!/usr/local/bin/perl -w
$shipdir="/databin/OUTGOING/SHIPMENT/bis/suresh";
$custdir="/uhome/cachet/temp/temp1/cust/";
$tloca="/databin/O
Have been browsing the Camel book and others and I
think I'm a little confused regarding the concept of
passing array & hash references to subroutines.
As far as I understand (and please please correct me
if I'm wrong) you pass array and hash references to
subroutines so that you don't have multi
On Wed, 29 Aug 2001, Ken Hammer wrote:
> I'm attempting to write a perl script, that will
> read a file from a remote host. It must be done
> through SSL. I was looking into the possibility
> of using sockets (IO::Socket::INET), or some
> such animal to accomplish this task.
> First, is it poss
> I have solved my earlier question.
>
> Thanks to those who responded.
>
> the problem was:
> I have an input file which contains n rows with 3 items in each row:
> 1 2 3
> a b c
> 4 5 6
>
> The script output needs to take the items from each row and print them
> as:
> "v1=1, v2=2, v3=3"
> "v1
I have solved my ealier question.
Thanks to those who responded.
the problem was:
I have an input file which contains n rows with 3 items in each row:
1 2 3
a b c
4 5 6
The script output needs to take the items from each row and print them
as:
"v1=1, v2=2, v3=3"
"v1=a, v2=b, v3=c"
"v1=4, v2=5,
Hi All,
I'm attempting to write a perl script, that will
read a file from a remote host. It must be done
through SSL. I was looking into the possibility
of using sockets (IO::Socket::INET), or some
such animal to accomplish this task.
First, is it possible to connect using
sockets to a SSL por
On Wed, Aug 29, 2001 at 02:22:16PM -0500, Dean W. Paulson wrote:
>
> I have the following array:
>
> 1 2 3
> 4 5 6
> 7 8 9
That looks more like a matrix. What does your array really look like?
@array = (
'1 2 3',
'4 5 6',
'7 8 9',
);
OR
@array = (
On Wed, 29 Aug 2001 [EMAIL PROTECTED] wrote:
> Is there an easy way or some format option that allows one to display an
> arbitrary number with commas:
>
> 12345678910 = 1,234,567,890
>
> Or do I need to set up a looping structure to split the number and insert
> commas???
Here's the solution gi
Is there an easy way or some format option that allows one to display an
arbitrary number with commas:
12345678910 = 1,234,567,890
Or do I need to set up a looping structure to split the number and insert
commas???
Thanks,
Tom
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional comma
I have the following array:
1 2 3
4 5 6
7 8 9
Is there a way to assign individual values of each array element (1 2 3
4 5 6 7 8 9) to seperate variables so that
$var1 = 1
$var2 = 2
.
.
.
$var9 = 9
Dean Paulson
On Aug 29, Jeff 'japhy/Marillion' Pinyan said:
>You could do the remove whitespace regex all at once, and even include the
>lc() in there. I don't suggest it, though:
>
> ($scode = lc $ucscode) =~ s/\s*(\S*(?:\s+\S+)*)\s*/$1/;
And if you don't want to use $scode, and just want $ucscode, you co
On Aug 29, Roger Morris said:
>chomp $ucscode;# remove line-feed
>$ucscode =~ s/^\s+|\s+$//g;# remove spaces
>$scode=lc($ucscode); # make lower case.
Do not try to do this with one line, or one variable. Specifically, the
"remove whitespace" regex should be done it
Hi,
Just trying to un-clutter some code. Following is the relevant part:
$ucscode is assigned a value via a split on : There could be white space
at the begging and end of the value. the value could be Upper case. The
end result should be no white space, all lower case. There may or may not
Jeff,
I want to print out the value of $name, Jerry.
Thanks,
Jerry
Jeff 'japhy/Marillion' Pinyan wrote:
>
> On Aug 29, Jerry Preston said:
>
> > name = "Jerry";
>
> You mean
>
> $name = "Jerry";
>
> > foreach $key ($query->param) {
> >undef $check;
> >$check = $1 if $key =~ "n
On Aug 29, Jerry Preston said:
> name = "Jerry";
You mean
$name = "Jerry";
> foreach $key ($query->param) {
>undef $check;
>$check = $1 if $key =~ "name";
(I think) you mean
$check = $1 if $key =~ /($name)/;
>if( $check ) {
> print "name key *$key* check $1 *";
>
Hi,
I am stumped!
I need to see the value oa all my variables.
This is what I am doing:
name = "Jerry";
foreach $key ($query->param) {
undef $check;
$check = $1 if $key =~ "name";
if( $check ) {
print "name key *$key* check $1 *";
}
}
What am I doing wrong?
Than
"Satish" <[EMAIL PROTECTED]> wrote:
> I am a beginner to perl.
> but i have woked in java.
> now i would like to know how to intergrate these two
Check out Inline::Java
http://search.cpan.org/search?dist=Inline-Java
-D
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-m
Ok. That gets me quite a bit further down the road. What I've done now is
the following that will run when the OS is NT:
# change forward slashes to backslashes for each line in file called filetab
open (FILETAB, "+<${filetab}") or die ("Cannot open $filetab for update
\n");
while () {
print
Thanks Bill,
Now I'm really perplexed. In the dos shell I get 'Bad command or File name'. It
looks like the Path is set correctly in the autoexec.bat file & Xitami does
everything it is supposed to do. http://barna.dns2go.com
What I am trying to do first, is get a log viewer to work as Xitami kee
> "Elizabeth" == Elizabeth A Rice <[EMAIL PROTECTED]> writes:
Elizabeth> The File::Find puts the names into the $filetab with forward slashes. On
Elizabeth> NT, the archive program isn't prepared to handle filenames with forward
Elizabeth> slashes instead of backslashes, so says it cannot fi
> -Original Message-
> From: Rice, Elizabeth A. [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, August 29, 2001 10:03 AM
> To: '[EMAIL PROTECTED]'
> Subject: File names on NT
>
>
> My PERL program uses the File::Find routine to find files that match a
> certain description, and then build
I am trying to run a script from a program created in perlTk. When I hit
the RUN button, it runs this run_program function. It runs through the
process fine and prints out the Process complete line and then gives me
some weird messages:
Process complete
X Error of failed request: BadIDChoice (
My PERL program uses the File::Find routine to find files that match a
certain description, and then build a file that contains a list of these
filenames.
Later I pass that file with the list of filenames to an archive program,
invoked via the system function.
The File::Find puts the names in
Thanks Bob.
-Original Message-
From: Bob Showalter [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, August 29, 2001 8:00 AM
To: '[EMAIL PROTECTED]'
Subject: RE: Validate a date
> -Original Message-
> From: Ron Rohrssen [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, August 29, 2001 8
> -Original Message-
> From: Ron Rohrssen [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, August 29, 2001 8:55 AM
> To: Perl Beginners
> Subject: Validate a date
>
>
> I'm looking for some advice on better methods of validating a
> date from a
> text string.
>
> Currently, I am using Dat
Edd,
One possibility is during the select statement:
select
sysdate
,trunc(sysdate) - 2
,to_date( '28-AUG-2001' ) - (trunc(sysdate) - 2)
,to_date( '27-AUG-2001' ) - (trunc(sysdate) - 2)
,to_date( '26-A
I'm looking for some advice on better methods of validating a date from a
text string.
Currently, I am using Date::Manip like this: $RptDate = UnixDate($strDate,
"%m/%d/%y"). If this fails the value of $RptDate will be "". That's okay.
But, this also has the undesirable effect of dumping this mes
> -Original Message-
> From: Julian M Sawkins [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, August 28, 2001 1:42 PM
> To: [EMAIL PROTECTED]
> Subject: Accessing an oracle database with a DBI
>
>
> Is there a way that doesn't involve installing the oracle client?
> Can I use ODBC?
> If so,
> -Original Message-
> From: Carlin Anderson [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, August 28, 2001 2:24 PM
> To: [EMAIL PROTECTED]
> Subject: Oracle function- Error when attempting call. Please Help !
>
> ...
> $sth = $dbh->prepare("BEGIN :result = getpickableqty(:id) END;");
Hee
Has anyone experience using this call? It works fine, but I get strange
delimiters in the text. How can I strip these out or print them as anything
other than a little box so I can work out what they are??
Thanks.
John Edwards
IT Support
Runecraft Leeds
Phone: 0113 2206317
Fax: 0113 2206301
Mob
Windows NT 4.0 has 2 file compare utilities. COMP is a leftover from DOS,
but might be useful. FC is a little more flexible & has a couple more
features. Type COMP /? or FC /? from a Windows NT command line for details.
Microsoft Visual C++ 5.0 includes WINDIFF, which is does file compares with
a
If you have the modules installed:
1. do a perl -V and at the very bottom it should give you the path to your
perl library.
2. you can also use LWP and then look into %INC for the exact location:
%> perl -e 'use LWP; print map { "$_ => $INC{$_}\n" } sort keys %INC'
hth.
Sid.
-Original M
i have no clue why perl and java shud be integrated?
please enlighten all of us on that
thanks
neeraj
Satish wrote:
>I am a beginner to perl.
>but i have woked in java.
>now i would like to know how to intergrate these two
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional comm
Use Date::Manip
>From the docs...
Among other things, Date::Manip allow you to:
1. Enter a date and be able to choose any format convenient
2. Compare two dates, entered in widely different formats to determine which
is earlier
3. Extract any information you want from ANY date using a form
Hi,
I have dates that I get off an Oracle database and so come in the
format DD-MMM-YY (e.g 10-AUG-01) I would like to be able to do a
comparison that decides whether the date I get off the Oracle
database is more or less than 2 days ago.
I seem to be stumped on this one. Could anyone point
If you need to install the modules and want to know where to get it to install
it then you can always just use CPAN.
isnt LWP and CGI installedd by default for most distributions of perl?
On Wed, Aug 29, 2001 at 11:13:33AM +0530, Rahul Garg shaped the electrons to read:
>
> Well, I got it mysel
Why do you need to go to the website for the source code when you can read it
on your local machine (unless you have not installed those modules ... in
which case I will shut up now)
On Wed, Aug 29, 2001 at 11:13:33AM +0530, Rahul Garg shaped the electrons to read:
>
> Well, I got it myself...
You could use ODBC if you have the ODBC driver installed for oracle
(I'm just assuming that oracle has an ODBC driver.) You would need
the Win32::ODBC module, which you could get Win32::ODBC using ppm
from the ActiveState site.
*I* think a better way is to use DBI. You'll need DBD::Oracle and
D
40 matches
Mail list logo
