Thanks Cripps & Members,
What should be the way to simplify the undermentioned working code as Part 1
and part 2 are repetition.
@array = qw ( hello world hello how are you );
$match = 'HEllo';
print "Your search for $match return ";
&count;
print " records\n";
## part 1 ##
foreach $record (@ar
First I would like to Thank ALL the Members for the help !
Secondly I would like to Thank those that urge me to use "use strict" &
"my".
Unfortunately I think a lot of members have misunderstood my earlier-first
question.
My question is:- what must I do so that the output layout would look like
t
[EMAIL PROTECTED]>
Sent: Saturday, November 17, 2001 7:06 PM
Subject: Re: sub-routine help needed.
> Leon wrote:
> >
> > First I would like to Thank ALL the Members for the help !
> > Secondly I would like to Thank those that urge me to use "use strict" &
> &g
- Original Message -
From: "Prasanthi Tenneti" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
> Hi,
> Iam a beginner in perl.I have one question,
> Iam trying to write one prog,in which i have to search for one word in a
> file,
> If I found that word,print next 4 lines.
> PLs help me,how t
or you can use the reverse sort like this ...
@trav= reverse sort { $a <=> $b } @trav;
_
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional command
- Original Message -
From: "Thomas S. Dixon" <[EMAIL PROTECTED]>
To: "Franck Collineau" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, November 20, 2001 10:30 PM
Subject: Re: writting in a file
> The filehandle should be outside the parentheses, like
> print TEMP $_;
Therefo
I know of the following :-
$" = '|interpolation-seperator|';
$, = '|seperator|';
$\ = '\n endOfLine';
my @a = qw (hi how are you);
print "@a\n";
My question is what is this called ==> $/
and where can I do some reading on $/ .
Thanks
_
does not get rid of \n but will get rid of testing
print (@array,"\n") ;
print (@array2,"\n");
--- results
helloworldtesting123
hello
world testing2
123
- end ---
Thank You !
--- end of msg ---
- Original Message -
From: nafiseh saberi
To: Leon ; [EMAIL PROTECTED]
Se
- Original Message -
From: "Jenda Krynicky" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, November 26, 2001 4:44 AM
Subject: Re: @_
> When you cann a function all the parameters you gave it end up in
> @_. You can (and usualy do) copy them then into some lexical
> variables to
- Original Message -
From: "Purshottam Chandak" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, November 26, 2001 5:32 AM
Subject: File Handlers
> what may be the cause the filehandles don't work. I am using windows 98.
> Everything works fine exept the filehandles.
I'm not to
You !
--- end of msg -
- Original Message -
From: "Daniel Gardner" <[EMAIL PROTECTED]>
To: "Leon" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Monday, November 26, 2001 8:59 AM
Subject: Re[2]: @_
> Hello Leon,
>
> Monday,
- try this
#!/usr/bin/perl -w
$user = "daneilson";
$file = '/etc/passwd';
open PASSSWD, "$file" or die "Cannot open $file for reading :$!";
@lines = ;
foreach $record (@lines) {
@record = split /:/, $record;
if ($record[3] ==45) {
## d
I have 2 things which I need members help.
(Q1)How to put these three substitutions into one single substitution
regex.
$a =~s//gt/;
$a =~s/\\n//;
(Q2)How to do the following :-
If there are 2 spaces, I wish to convert it into 1 like
this =>
3 spaces into 2 lik
- Original Message -
From: "Jeff 'japhy' Pinyan" <[EMAIL PROTECTED]>
To: "Leon" <[EMAIL PROTECTED]>
> >(Q2)How to do the following :-
> > If there are 2 spaces, I wish to convert it into 1 like
> >this =>
I do not wish to substitute
\n.
Problem solved!
Thank You Everybody
--- end of msg
- Original Message -
From: "Charles K. Clarkson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, November 28, 2001 4:40 AM
Subject: Re: [PBML] help needed on substitut
How about this :-
open (SALARY,"c:/salary") || die"$!\n";
chomp (@read = );
close (SALARY);
$read = join '',@read;
$read = $read + 10;
open (SALARY,">c:/salary") || die "$!\n";
print SALARY $read;
close SALARY;
--- end of msg --
- Original Message -
From: "nafiseh saberi" <[EMAIL
I need members help on this :-
I wish to substitute ALL the number 123 marked in red found within the brackets ( 123
of 123 ), of $a, into 789.
The regexes must not substitute the 4 following match :-
123 )
123
of 123 )
123 of 123 )
Therefore, the regexes MUST ONLY substitute the red 123 found
- Original Message -
From: "A. Rivera" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, November 30, 2001 7:20 AM
Subject: I thought I knew
> OK, I have this..
>
> $longdate="Fri November 29, 2001";
> And I want just the November 29, 2001 part.
>
> I tried..
> $longdate=~
- Original Message -
From: "Johnson, Shaunn" <[EMAIL PROTECTED]>
> open (FILE, "+http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
- Original Message -
From: "Sandhya Sankaran" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, November 30, 2001 8:35 PM
Subject: Reading files into arrays
> I have just started programming in Perl and i need a solution to the
> following problem :
>
> I have a file like this :
- Original Message -
From: "AMORE,JUAN (HP-Roseville,ex1)" <[EMAIL PROTECTED]>
To: "Beginners@Perl. Org (E-mail)" <[EMAIL PROTECTED]>
Cc: "John Amore (E-mail)" <[EMAIL PROTECTED]>; "AMORE,JUAN
(HP-Roseville,ex1)" <[EMAIL PROTECTED]>
Sent: Saturday, December 01, 2001 9:33 AM
Subject: Any ta
- Original Message -
From: "Dermot Paikkos" <[EMAIL PROTECTED]>
> Hi there,
> This is both frustrating and embarrassing. I can't capture the
> following data into a variable. The line I want is:
> GIAZUC00
>
> I have tried a multitude of Regex, none seems to be working. Here's
> my last at
- Original Message -
From: "Messier, Jean-Francois" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; "Daniel Falkenberg" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Friday, December 07, 2001 12:06 AM
Subject: RE: Confirmation...
> I'm a beginner in those regular expressions and s/// op
Could members here provide me with some lead with regards to the following
:-
I've seen many homepages that requires 'members' to login with their
password and membername, they could then browse the pages at their own sweet
time (browse here, there and everywhere), but when they post a msg, their
- Original Message -
From: "Shawn" <[EMAIL PROTECTED]>
> > $searchstring =~ /[a-z0-9]/i;
>
> Why slow it down with the 'i'?
> $searchstring=~/[a-zA-Z0-9]/;
The original poster says at least 1 letter or number .. " i want
something like..if $searchstring has at least 1 letter or
- Original Message -
From: <[EMAIL PROTECTED]>
Thanks for your help John !
What I actually want is something like those message boards such as
http://www.ikonboard.com/newindex.iB or www.delphiforums.com whereby after
successfully logging in, we could view messages and if one decides to
Hi,
I am now reading the book "Learning Perl" 3rd edition by Randal, and is
trying to do chapter 1 exercise 2, pg 18, but I have the following problem
which I hope members could assist me once and for all.
I've installed activestate v5.6.1 Binary build 630 in my windows98 in
d:\perl
However whe
- Original Message -
From: "maarten hilgenga" <[EMAIL PROTECTED]>
> Hi,
>
> You have to execute the "Perl hello.pl" from the directory that contains
the
> hello.pl. Putting C:\Perl\bin in the path enables windows to find the
> interpreter "Perl", not your hello.pl.
I believe the original
- Original Message -
From: "Chris Ball" <[EMAIL PROTECTED]>
> On Mon, 2001-12-17 at 15:46, Jeff 'japhy' Pinyan wrote:
> > It certainly puts my C-like code to shame. It's very nice.
>
> And even more so to my code. Very well written, Bob.
I'm very impressed at all the solutions and the s
Normally when I hit reply, I will see the greater sign > on the original
post, but this time it is not there and I do not know how to set up the
outlook express. I will try to experiment with the outlook express later.
Sorry about that.
Coming to the point, put qutoes on 'i am fred flintstone
- Original Message -
From: "Michael Fowler" <[EMAIL PROTECTED]>
To: "Egor Brandt" <[EMAIL PROTECTED]>
> On Wed, Dec 19, 2001 at 10:14:00PM +0100, Egor Brandt wrote:
> > #!/usr/bin/perl -w
> > while ( < i am fred flintstone >) {
>
> The text between the angle brackets is not what you're
Without using $key == $cid,
How to construct a pattern so that $key match $cid.
I do not understand why in the undermentioned script, $key match $cid.
All explanations would be very much appreciated.
Thanks
use strict;
my $cid = '';
my $key = '1234';
if ($key=~/\b$cid\b/) {
print 'true';
- Original Message -
From: "Steve Few" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
> PROBLEM - unresolved error messages...
>
> $line= 1,6.944,"methane",29.6576,70617.28,"*BB",8533.32,2381.0883,0.21
> I use split (/,/,$line) to send each of the nine elements to an array.
>
> I get these
> Andrea
All help and explanations appreciated.
Thank You.
--- end of msg my original post below -
- Original Message -
From: "Bob Showalter" <[EMAIL PROTECTED]>
To: "'Leon'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
> > --
- Original Message -
From: "Gary Hawkins" <[EMAIL PROTECTED]>
> > my
> >
$line=qw(1,6.944,"methane",29.6576,70617.28,"*BB",8533.32,2381.0883,0.21);
> Bonk. When using qw (quote words) I thought they had to be separated by
white
> space:
If there are more than one element, yes, it needs t
Could somebody help me to shorten the working script I wrote marked script 1
below, as I realised that I could not do the following :-
--
open FILE, 'cookie.txt' or die "$!\n";
open SAME_FILE, '>cookie.txt' or die "$!\n";
while () {
print SAME_FILE;
};
--
Since I cannot do the abo
- Original Message -
From: "Bob Showalter" <[EMAIL PROTECTED]>
To: "'Lance Prais'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
> > -Original Message-
> > From: Lance Prais [mailto:[EMAIL PROTECTED]]
> >
> > for(my $i=0; $i<22; $i++){}; #This will put
> > you at row 23.
>
> A more
- Original Message -
From: "Mark Mclogan" <[EMAIL PROTECTED]>
> How I can know in that I number of line finds a word in a text file?.
> For example, a file "file.txt" contains the following list:
>
> Chocolate
> Cake
> Cheese
> Apple
> orange
> melon
> lemon
>
> How I can know in that l
- Original Message -
From: "Jose Vicente" <[EMAIL PROTECTED]>
> Hi friends.
> I am replacing a string using s///, in the following way:, but I only
> need and exact string to be replaced, for example if I have a file with
the
> following strins:
> amor
> alto
> a
> bacho
> And execute
- Original Message -
From: "John W. Krahn" <[EMAIL PROTECTED]>
> Leon wrote:
> >
> > - Original Message -
> > From: "Mark Mclogan" <[EMAIL PROTECTED]>
> > > How I can know in that I number of line finds a word in a
- Original Message -
From: "KeN ClarK" <[EMAIL PROTECTED]>
> script is HERE:
>
> #/usr/local/bin/perl -w
> use CGI qw(:cgi);
> use strict;
>
> $myurl = "http://www.quantifier.org/phpquant/";;
>
> print "Location: $myurl\n\n";
> exit;
>
> *
> I am fried right now. I have tried this
- Original Message -
From: "Peter Lemus" <[EMAIL PROTECTED]>
> Hi I need to add a word to the end of a word inside a
> file.
>
> HELP PLEASE
>
> for example: I will read a file with these names
> july
> tony
> richard
>
> then I want to add the following to the name
> @minime.com. So it
- Original Message -
From: "Ahmed Moustafa" <[EMAIL PROTECTED]>
Newsgroups: perl.beginners
To: "Leon" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
> Can you open a file for reading and writing as the same time?
I have asked the question
- Original Message -
From: "Jeff 'japhy' Pinyan" <[EMAIL PROTECTED]>
Sent: Friday, January 04, 2002 9:53 PM
Subject: Re: regex
> If so, I suggest something like:
> $text =~ s/.*?//gs;
* means zero or more instances;
? means zero or one instances;
+ means one or more instances;
so wh
- Original Message -
From: "Michael R. Wolf" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
> >"Leon" <[EMAIL PROTECTED]> writes:
> > But my instinct tells me that what you were
> > trying to say is that with each iteration, the variab
- Original Message -
From: "Casey West" <[EMAIL PROTECTED]>
To: "Yacketta, Ronald" <[EMAIL PROTECTED]>
Cc: "Beginners (E-mail)" <[EMAIL PROTECTED]>
> open FILE, "filename" or die $!;
> my $line = ;
> close FILE;
>
> Remember, is something you can iterate over. In scalar
> context
- Original Message -
From: "Peter Cornelius" <[EMAIL PROTECTED]>
> The way that I have done this in the past is to set a cookie after the
> initial authentication. On all pages that require authentication you
check
> for the cookie and validate that it hasn't been tampered with.
Do you u
- Original Message -
From: <[EMAIL PROTECTED]>
> I already have a user registration form set up, but now I want to be able
to
> display the last 10 visitors which logged into my site.
What you can do is everytime a visitor logs in, it is captured into a file,
placing the last entry on to
- Original Message -
From: "Gary Hawkins" <[EMAIL PROTECTED]>
To: "Hewlett Pickens" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
> Seems a good example of how every little question has some merit. You
just
> never know.
I sure agree with you on this.
> I've had the same problem on Windows
- Original Message -
From: "Steve Maroney" <[EMAIL PROTECTED]>
To: "Michael Eggleton" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Sunday, January 13, 2002 11:12 PM
Subject: Re: Help with clearing an array
>
> @my_arry = "";
Can I use this :-
@my_arry = undef;
Thanks.
___
- Original Message -
From: "John W. Krahn" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
> @array = qw(1 2 3 4 5);
> @array = ();
> print scalar @array, ": @array";
> 0:
>
> As you can see @array = ""; and @array = undef; don't clear the array.
This gives me an idea of assigning 0 for clea
- Original Message -
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
>
> | $key=~/^r(\d+)c(\d+)$/
> ||\___/|\___/|
> || | | | ` end of string
> || | | `--- one or more digits => $2
> || | `-- the letter
- Original Message -
From: "maureen" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
> Currently, the array seems to only be picking up the last name listed in
> the text file.
> @indata = ;
> close(FILE);
> foreach $i (@indata)
> {
> #remove hard return character from each record
> chomp($i
Like what Jeff says, use eq would be a better option.
You may wish to know that "$password =~m/bob/" matches any of these :-
anybob bobby anybobbie ... i.e so long as it sees a bob, it match. If you
wish to match only bob and not bobby or abobby, then you may have to use
border like this ~/\bbob
imiter' like m or
m(bob).
and you could also omit the m/ ... like this:-
if ($password =~/\bbob\b/) { ...# do your things ..}
end of msg
thanks..lou
- Original Message -
From: Leon
To: [EMAIL PROTECTED]
Sent: Sunday, January 20, 2002 2:31 PM
Subject:
- Original Message -
From: "maureen" <[EMAIL PROTECTED]>
To: "Leon" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Monday, January 21, 2002 8:39 AM
Subject: Re: Array Problem
> if ($username ne /$in{username}/)
> {
Anything in between the
- Original Message -
From: "maureen" <[EMAIL PROTECTED]>
To: "Tanton Gibbs" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Wednesday, January 23, 2002 5:04 PM
Subject: Re: Text file separators
> Thanks for your suggestion. I tried this:
>
> if( $username eq $in{username} &&
> >
I've already seen many examples, so I shall not touch on foreach.
The Map function could do the work too assuming memory is not a problem.
However I am not too sure if I got the following short cut correct :-
open FILE, 'data.txt' or die "$!\n";
print (map "InsertYourText $_",);
close FILE;
Tha
Try this;
my $total = "4536233";
$total =~s/(.+)(\d{2})/$1.$2/;
print $total;
- Original Message -
From: "Stuart Clark" <[EMAIL PROTECTED]>
To: "Perl List" <[EMAIL PROTECTED]>
Sent: Sunday, January 27, 2002 5:56 PM
Subject: decimal point
> Hi,
> I am trying to move the decimal point 2
- Original Message -
From: "Clarke" <[EMAIL PROTECTED]>
> $ man make
What is the meaning of the dollar sign. I am using windowsME.
Thanks.
_
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To
- Original Message -
From: "Kevin" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, January 31, 2002 10:15 PM
Subject: Matching text
> I have have the following input.
>
> Active Accounted actions on tty57, User fred Priv 1
> Task ID 35176, Network Accounting record, 02:04:00
- Original Message -
From: "wim" <[EMAIL PROTECTED]>
> When I do:
>
> if ( $menuitem == "modify_router") {
> print "Modify router";
> } else {
> print "Add router";
> }
>
> it doesn't work. But when I change it to:
> How comes?
Apart from the fact that == is used for nu
I am a very new beginner and perl is my first programming language which I
learnt as a hobby. I started on perl because many people says that perl is
easier to learn than other languages such as c or c++.
In deciding which languages to choose, of which what I actually wanted, was
to learn a langu
- Original Message -
From: "Marc Morrison" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
> I have a text file which contains much un-needed data,
> but also contains a bunch of email addresses I need.
> I have been succesful in the basics of opening the
> file and putting the contents into a
- Original Message -
From: "Daniel Falkenberg" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Just wondering what my best way would be to go about stripping all
digits from my string. So far I have the follwoing...
$string = "08 852365 21 Hello world!";
$string =~ s/[.*\d\s]//g;
I believe
Yes it is possible. The forms will be sent to the script which then process
the inputs.
- Original Message -
From: "Daniel Falkenberg" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, March 03, 2002 5:44 PM
Subject: Perl to work like Java
Hey all,
I need a Perl script to be ab
Hi,
Whats the code for refreshing a browser assuming the url to be refreshed is
http://www.perl.com/
Thanks
_
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
Fo
- Original Message -
From: "zentara" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
> In the html page where you set up the original frameset, you assign names,
> like header, left and right to the individual frames. So you either make
your
> links and forms point to the
pt. I think it has something to do
with the "'s but I am not sure where I am going wrong.
Any help would be great.
Thx,
Leon
#!/usr/local/bin/perl
#Send E-mail for Critical Alerts
#Here we define our parameters
$to = '[EMAIL PROTECTED]';
$from = "Openview Server"
I figured out my problem. Sorry for the spam.
Thx again,
Leon
__
Do you Yahoo!?
Yahoo! SiteBuilder - Free web site building tool. Try it!
http://webhosting.yahoo.com/ps/sb/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
Hi everyone,
I am really really new to perl. I know this is dumb but I am using perl in the win
32 environement (perl 5.8.0 build 804) from active state. I am trying to figure out
how to install modules. Where do you get them from? How do you install them? Other
things I need to know?
T
ut writing the logic to grab what is being
sent to the screen to test it and if it says error to just have the script keep going
ignoring the error.
Thx,
Leon
-
Do you Yahoo!?
Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your desktop!
Hi everyone,
Does anyone know where I can find this module? It seems important for win32 admining
yet I cant find it on cpan. Any suggestions?
Thx,
Leon
-
Do you Yahoo!?
Yahoo! Tax Center - File online, calculators, forms, and more
y a M$ shop. So I am wondering: Where do you find the methods that relate to
applications and specifically if anyone has any links to Microsoft ones.
Thx,
Leon
-
Do you Yahoo!?
Free online calendar with sync to Outlook(TM).
e for a
particular string. Can anyone give me some advice on how to do this. I understand
how to load up the eventlog with win32:eventlog but i am not sure how I would begin
searching it for particular event id's or even searching the text of the id's
Any tips appreciat
attempt though,
Leon
Robert-Jan Mora <[EMAIL PROTECTED]> wrote:
Hello Leon,
Check the site www.roth.net and look for examples. He has a script which is called
lastlogon.pl.
Leon wrote:
Hi guys (and ladies!),
I am trying to write a script to find out the last logon of all users in a
Hi guys (and ladies!),
I am trying to write a script to find out the last logon of all users in a domain. I
see that with adminmisc I can query a users last logon but this has to be done on
every domain controller. That's fine cause I know that I can use netadmin and lanman
to get a list of
{Name} . "=" . $last_login . "\n"
}
}
Just a thought...
jpt
-Original Message-
From: Leon [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 12, 2003 12:35 PM
To: Robert-Jan Mora
Cc: perl; win32; Yahoo Beginner Perl
Subject: Re: Last Logon of ALL users in the domain
Hi Rober
ppm files. Second on the website it
> says
> Latest Release: perl-5.8.1-RC2 does this mean I need
> this version of perl? i have downloaded the source
> as
> .pm but I am not quite sure what to do with it now.
>
> Can anyone offer any advice? I am
at?
Thx in advance,
Leon (scripting newbie)
__
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The purpose of the application is to listen for a specific UDP multicast and
then to forward the data to any TCP clients connected to the server. The
code works fine, but I have a problem with the sockets not closing after the
TCP clients disconnects. A socketsniffer utility shows the the sockets
r
Hi guys,
I am very new to Perl, and in need to write a perl
program.
The way code must get its input is through the email.
Basically, email will be send to account, say,
perlAccount, which will have .forward file.
..forward will redirect all requests to the perl
script.
Can someone please tel
per line
input looks like this :
0001616 | the hospital | box 11667 | selcourt | mulbarton | 1733 |
[EMAIL PROTECTED]
output must look like this
the hospital , [EMAIL PROTECTED]
Please someone merciful :-)
Any examples , or a push in the right direction would be greatly
appreciated..
--
Leon
Hi,
I'm trying to parse a logfile using the example from the book 'Perl for Web
Site Management.'I keep getting the errors 'Global symbol "$auth_user"
requires explicit package name at ./log_report.plx line 21. The code I'm
using is below.
Do I need to import a module? If anyone can point me in
his code:
opendir (DIR, "c:/temp") or die "Cant Open Temp Buddy Boy! \n";
@filenames = readdir (DIR) or die "Can't Hold Filenames \n";
foreach $name (@filenames) {
print "$name \n"; }
I get:
C:\scriptz>perl -w open3.pl
.
..
blah.dat
FAD3.TXT
o
id I do the right thing by putting a \ before the \
in the path?
My second question is whether or not the % sign is messing things up?
Finally I am wondering how best to solve this? DO you think hard coding the
actual path (instead of using %windir% would help?
Thx again!
Leon
-BEGIN PGP
op to loop
through this and rerun it if it doenst complete.
I was thinking of writing a loop using until. Something like until we say
all done keep running the script.
Since i am new to programming all together (first language and all) it is
sometimes hard to get into the "mentality of a pr
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
Hi everyone,
I am using the win32 environment (Windows 2000 SP3 specifically):
Could anyone tell me how I could use perl to edit the registry? Do I need
some kind of module? Is there a website or link anyone can provide?
TIA,
Leon
-BEGIN
each one.
I was thinking of having it run as a sub, hit each one, dump the info into a
text file and then use excel to clean it up. Does anyone know how to
implement that easily or think that is the best way to do it?
Thx,
Leon
-Original Message-
From: Tim Dumas [mailto:[EMAIL PROT
I have been trying to create a module to ssh among different systems and
edit and create different files once I log in the remote system. I want to
ssh into a remote system from system A create and edit different files on
the remote system after a successful ssh login. My subroutines to edit an
I have perl 5.005_03 currently installed on my systems. What are the
benefits (if any) for upgrading it to the latest version (5.6.0)? Where can
I get a free copy of perl 5.6.0? Is it easy to compile? Please let me know.
Regards,
Yanet
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For addit
Not necessarily a perl question. One of the users (on a Unix box) created a
directory with a dash at the beginning of the name (no idea how he did it)
and he needs to remove it. The name of the file is -testing is there a way
to remove it using perl or other means. I removed it using the inode
chomp($line=$_);
$currentpos=tell;
}
}
$currentpos=$currentpos-72;
seek(FH,$currentpos,0);
print FH " $line";
Yanet I. Leon
Unix System Administrator
EDS - Defense Manpower Data Center
400 Gigling Road
Seaside, CA 93955-6771
Phone#: (831)583-2400 ext. 4351
Email: [EMAIL PROTECTED] <mailto:
How do I invoke a perl program from within another perl program? I don't
need to use a module or create one for this purpose. I have a simple script
which performs a replacement:
substitute.pl
#!/pkg/public/bin/perl -pi.bak This edits a file and creates a backup of
the edited. This is why I w
Hello all,
I have been having a bit of trouble with a script that is very easy to
develop in ksh. I am just trying to rotate logs.
some of the variables I declare are:
my $LOGDIR=/some/where/in/my/file/system/logdir;
my $LOG=/some/where/in/my/file/system/logdir/logtorotate;
I h
Thank you everybody. Your help was EXCELLENT. I have been learning a lot
from this list.
-Original Message-
From: Leon, Yanet I,,DMDCWEST [SMTP:[EMAIL PROTECTED]]
Sent: Monday, August 19, 2002 3:54 PM
To: Perl beginners
Subject
I have an array which contains the entries below - the output was generated
with the following loop:
for $r ( 0 .. $#allfilesystems ) {
for $c ( 0 .. $#{ $allfilesystems[$r] } ) {
print "elt $r $c is
$allfilesy
lName: oradg_C9
Device_Number: HDS99600_19
-Original Message-
From: Leon, Yanet I,,DMDCWEST
Sent: Tuesday, August 27, 2002 10:42 AM
To: [EMAIL PROTECTED]
Su
98 matches
Mail list logo
