Hi all,
I have several files written in perl and batch files. Here is the problem
i'm facing, i was unbale to kickoff builds by telneting it. Its trying to
access local files rather than to the files in the server. when ever i type
in the local m/c i get the following o/p.
C:\>date/t
Fri 09/21/2
--On Samstag, 22. September 2001 01:09 +0200 Andrea Holstein
<[EMAIL PROTECTED]> wrote:
> Birgit Kellner wrote:
>>
>> my %hash = ('firstkey' => 'firstvalue',
>> 'secondkey' => 'secondvalue',
>> 'thirdkey' => 'thirdvalue');
>> my @array = ('secondkey', 'other element', 'still othe
> "Dissdennon" == Dissdennon stupolsky <[EMAIL PROTECTED]> writes:
Dissdennon> hi
Dissdennon> i have a script like this:
Dissdennon> #!/usr/bin/perl
Dissdennon> open (MOO, "loo");
Dissdennon>while ()
Dissdennon> {
Dissdennon>s/moo/foo/g;
Dissdennon>}
Dissdennon> what i'm
Birgit Kellner wrote:
>
> my %hash = ('firstkey' => 'firstvalue',
> 'secondkey' => 'secondvalue',
> 'thirdkey' => 'thirdvalue');
> my @array = ('secondkey', 'other element', 'still other element',
> 'firstkey');
> my @index_array;
> foreach my $element (@array) {
> # QUEST
hi
i have a script like this:
#!/usr/bin/perl
open (MOO, "loo");
while ()
{
s/moo/foo/g;
}
what i'm trying to do is to replace all the moos in a
file called loo in the same directory where the script
is. when i run it i don't get any errors but there is
no results eather. in the
Edouard Beaugard [[EMAIL PROTECTED]] quoth:
*>
*>if anyone knows of one please let me know.
http://lists.perl.org/search.cgi?cat=Win32
e.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
>
>
>I did this in one of my programs and it seemed to work just fine:
>
>system("$command &");
>
Check it out again.
contents of child.pl:
#!/usr/bin/perl
sleep 10;
print "child exiting\n";
contents of parent.pl
#!/usr/bin/perl
system( "perl child.pl &" );
print "parent exiting\n";
You will
On Fri, Sep 21, 2001 at 02:25:01PM -0400, Cohan, Drew wrote:
> I wasn't sure if LWP::Simple did any caching since there wasn't any mention
> of it in perldoc LWP::Simple. In general, can I assume that an omission of
> a feature related to a function means that it doesn't exist?
I would, yes. Th
I used the system command myself in Perl in NT environment and it work fine
I called a batch file with it then the out put was later used in the script
No problems
Junaid
-Original Message-
From: Sidharth Malhotra [mailto:[EMAIL PROTECTED]]
Sent: Friday, September 21, 2001 12:05 PM
To: J
I want to read/write data stored in my perl script. Of course I can use
Inline::Files. But I want to compile the script to binary program using
perl2exe so that no body could read that data. When I compile the script the
use of Inline::Files become useless.
Are there any other means of data s
my %hash = ('firstkey' => 'firstvalue',
'secondkey' => 'secondvalue',
'thirdkey' => 'thirdvalue');
my @array = ('secondkey', 'other element', 'still other element',
'firstkey');
my @index_array;
foreach my $element (@array) {
# QUESTION: here I'd like to have some code tha
yeah, sorry, I meant LWP::Simple::get() :-)
I wasn't sure if LWP::Simple did any caching since there wasn't any mention
of it in perldoc LWP::Simple. In general, can I assume that an omission of
a feature related to a function means that it doesn't exist? eg I think
it's reasonable to assume t
Below is a script that I would like to format the output a little better... I would
like to add time and date... the actual eventype and the event description. This
script parses the eventlog from an NT machine.
=== Begin script ===
use Win32;
use Win32::EventLog;
do
{
✓
print ("S
I am just following the thread... question is off-topic. Win32::OLE is well
documented but
my question is : where _exactly_ is documented this "Win32 API" ? Where
are documented
these objects and available methods ?
Thank you for your participation.
Florentin.
- Original Message -
From
On Thu, Sep 20, 2001 at 08:43:49AM -0400, Cohan, Drew wrote:
> offhand does anybody know if get ($url) does any sort of cacheing of the
> contents of the url? if it does, how do you turn cacheing off?
What get() are you referring to? LWP::Simple::get? LWP::Simple::get
doesn't do any caching; i
I did this in one of my programs and it seemed to work just fine:
system("$command &");
Which, I believe, runs your command in the background and lets you return to
your program. (Please correct me if I am wrong). This will only work on
*nix systems.
Sid.
-Original Message-
From: Jona
Ok this is my first crack at so someone tell me what im doing wrong?
#!/usr/bin/perl -w
use CGI qw(:standard);
$name = param('name');
$email = param('email');
$cname = param('cname');
$password = param('password');
$expiration = param('expiration');
system ("/export/home/neomar/nael/certs
Hi all,
I'm new to the list and would first like to say that I am very impressed by
how supportive this community is! I've already learned quite a bit just by
reading the questions and informative answers coming across my email.
Now, please forgive me forgive me on this question as I'm sure I
At 04:53 PM 9/21/2001 +0200, walter valenti wrote:
>How i can write a reg. expr for find the IP address in log file like:
>
>15:46:25.967683 194.244.46.38.1412 > 207.88.221.53.119: . ack 1115 win
>8760 (DF)
>15:46:26.600505 194.244.46.38.1412 > 207.88.221.53.119: P 15:21(6) ack
>1115 win 8760 (DF)
Here is one way:
(/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/g)
-Original Message-
From: walter valenti [mailto:[EMAIL PROTECTED]]
Sent: Friday, September 21, 2001 10:53 AM
To: [EMAIL PROTECTED]
Subject: reg expr
How i can write a reg. expr for find the IP address in log file like:
15:46:25
On Sep 21, Jonathan Howe said:
>Is it possible when making a call to the system, using the system
>command our back ticks to have a script exit/finish with out hanging
>around for a return from the process handed to the system.
You need to fork a new process.
if ($pid = fork) {
print "chi
Is it possible when making a call to the system, using the system command our back
ticks to have a script exit/finish
with out hanging around for a return from the process handed to the system.
cheers all
On Sep 21, John Edwards said:
>do {
> $artikelID = &newID;
>} until (! -e $ARTIKEL_DIR.$artikelID);
That produces a race condition. Between the checking for the existence of
the file, and the opening of the file itself, the file COULD be created.
I suggest the use of the sysopen() function.
Try
do {
$artikelID = &newID;
} until (! -e $ARTIKEL_DIR.$artikelID);
open ($artikelID);
That checks for the existence of the file (-e).
John
-Original Message-
From: Martijn van Exel [mailto:[EMAIL PROTECTED]]
Sent: 21 September 2001 16:03
To: [EMAIL PROTECTED]
Subject: checking
I have a subroutine &newID that constructs a pseudo-random ID on every
invocation. Regularly, a file needs to be created in a directory, say
$ARTIKEL_DIR, using a newly generated ID. Of course, I want to make sure
that the file (the ID) doesn't exist yet. Of course, I could put all IDs
previou
I am assuming you want all and in this case I am just printing them. You could
push on to an array or create a hash:
#!perl -w
my $in = 0;
while ( ) {
chomp;
$in++;
while ( /\s((\d{1,3}\.){3}\d{1,3})/g ) {
printf "ln: %5d $1\n", $in;
}
print "\n";
}
__DATA__
15:
How i can write a reg. expr for find the IP address in log file like:
15:46:25.967683 194.244.46.38.1412 > 207.88.221.53.119: . ack 1115 win
8760 (DF)
15:46:26.600505 194.244.46.38.1412 > 207.88.221.53.119: P 15:21(6) ack
1115 win 8760 (DF)
15:46:26.600972 194.244.46.38.1412 > 207.88.221.53.119:
>From the Win32 API:
SV_TYPE_WORKSTATION 0x0001 All LAN Manager workstations
SV_TYPE_SERVER 0x0002 All LAN Manager servers
SV_TYPE_SQLSERVER 0x0004 Any server running with Microsoft
SQL Server
SV_TYPE_DOMAIN_CTRL 0x0008 Primary domain controller
Take look at .PM module.
Yves
-Message d'origine-
De: Veeraraju_Mareddi [mailto:[EMAIL PROTECTED]]
Date: vendredi 21 septembre 2001 09:26
À: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Objet: Win32::NetAdmin
Dear All
How do i know all flags(SV_TYPE_*) available with Win32::NetAdmin. Is th
I've a question on Tk module.
I'v a first window, with a botton, thath has a event to open a second
window.
The problem: how i can ONLY the second window with a event at a botton
at this 2nd window??
Thanks
Walter
_
Do You Ya
Dear All
How do i know all flags(SV_TYPE_*) available with Win32::NetAdmin. Is there
any docs available on this..
Thanx and Regards
Raju
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-a
> My question is:
> Do the username and passwd have to be hardcoded in the
> script or can I pass these values from a file? Does
> ftp have any way of getting credentials (at least for
> the password) from an encrypted file?
Depends on how the files are encrypted. What I would suggest is writing
"Indiainfo" <[EMAIL PROTECTED]> wrote in message
007701c14280$12138200$[EMAIL PROTECTED]">news:007701c14280$12138200$[EMAIL PROTECTED]...
I have a text file, which contains some mail ids among other text. Is
ther some way by which i can extract all the mail-ids into another text?
Sure!
No, get($url) does'nt cache.
Walter
> hi,
>
> offhand does anybody know if get ($url) does any sort of cacheing of the
> contents of the url? if it does, how do you turn cacheing off?
>
> thanks,
>
> -- drew
> [EMAIL PROTECTED]
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additi
Hai,
i am a beginer in perl.
I have a text file, which contains some mail ids among other text. Is ther some way
by which i can extract all the mail-ids into another text?
Thanks in advance
Mony
hi all,
this is maybe a little bit off topic, but I really need help there from
some gurus...
I use sendmail with SuSE-linux 7.1 and put all external mail in a queue
(/var/spool/mqueue), internal mail is immediately delivered.
Now I wanna manipulate every external mail with a perl script before
36 matches
Mail list logo
