[EMAIL PROTECTED] wrote:
> Hello to all,
>
> I have been attempting to create a PERL script to survey and store
> (CSV file) the file system permission's on our NT servers user file
> area. All of my attempts have ended up creating an entry for every
> directory, even if the ones below it shares t
[EMAIL PROTECTED] wrote:
> I have been trying to get the script DISKPIG.PL from the roth.net
> site to go but all I manage to get is:
>
> "bareword syntax no allowed while "strict subs" in use, line 40 "
>
> it also complains about syntax error at DISKPIG.PL line 97 near
> "<"
>
> Not b
As you will find out, there are many ways to do what
you ask. I have a regex:
#!perl -w
_ = 'abcdefghi';
s/(\w{3})(?=\w)/$1-/g;
printf "%-s\n", $_;
Output:
abc-def-ghi
The s/ express groups together three characters and then uses (?=\w) to
do the hypen if there is a following charact
Jeff Zanzinger wrote:
> I just installed the windows 2000 server and having trouble sending
> email from ActivePerl using Net::SMTP or Mail::Sender. The perl
> program executes without error but no emails are ever sent out. Your
> guidance is greatly appreciated! Below is the perl program.
>
>
Glenn Meyer wrote:
> Is there a better way to detect a parameter given in a command line?
> For example, to run the script (obviously) c:\>script.pl I have
> also added some "switches" to help with setup of the options (like)
> c:\>script.pl /h to see a help message
> c:\>script.pl /ito gene
John Deretich wrote:
> Hi ,
>
> does any one know how to insert a page break when
> formatting a report? Using the select operator to
> change the number of lines per page isn't very accurate.
>
> thanks,
>
> John
You should be able to to \f for top of form.
Wags ;)
**
last, next are used in relationship to a block like
while ( 1 ) {
next if ( $abc < 1 );
last if ( $abc == 1 );
# other code
}
used with while, for, foreach or really I believe any block defintion.
The guru's can give us a better info if nece
Since you should have uniqueness in the usernames, you could place
one set of data(say the FILE) into a hash using the usernames as the key.
Now you can read from the function and where the key does not exist, do
something.
Wags ;)
-Original Message-
From: Robert-Jan Mora [mailto
You can use \Q and \E to tell the regex to not do any other interpreting of
characters within a variable:
my $s1 = "c:\\root\\sub1\\sub2\\myfile.dat";
my $s2 = "c:\\root\\sub1\\";
$s1 =~ s/\Q$s2\E//gi;
printf "%-s\n", $s1;
Output:
sub2\myfile.dat
Wags ;)
-Original Message-
Title: Message
Are you running with warnings and/or strict to insure
that all is happening as you expect it to?
Wags ;)
-Original Message-From: Matthew Wagenknecht
[mailto:[EMAIL PROTECTED]]Sent: Tuesday, April 02,
2002 12:37To: 'Weir, Jason - Contractor';
[EMAIL PROTE
Depends on the module being installed and if the author provided the html. I
have installed two modules today: one appeared and one didn't.
Wags ;)
-Original Message-
From: MacAlpine, Tim [mailto:[EMAIL PROTECTED]]
Sent: Thursday, March 14, 2002 11:47
To: '[EMAIL PROTECTED]'
Su
If you use AS Perl, then you can ppm install File::Tools
Wags ;) ps Thanks for the insight to Tools.
-Original Message-
From: Chuck Lawhorn [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 24, 2001 10:17
To: [EMAIL PROTECTED]; win32-admin
Subject: Re: Folder size?
It's part o
It was there in earlier versions(I am runing as 5.6.0 build 623), have it
loaded. In the doc which I have, it says it was not part of the base install and you
could load using PPM.
I went out and looked at the PPM availability and there is no Recurse or even
Find under File.
I removed the \n for testing and added an e as part of the regex:
$_ = 'THIS IS A TEST OF THE WORK OF LC WITHIN A REGEX';
printf "%-s\n", $_;
s/(\w+)/lc($1)/e;
printf "%-s\n", $_;
Output:
THIS IS A TEST OF THE WORK OF LC WITHIN A REGEX
this IS A TEST OF THE WORK OF LC WITHIN A REGEX
-Or
John,
Here is a shot. Ran twice using the same script and the access time does not
change. You should be able to change accordingly. What I did was place a hard coded
date of 10 days ago and returned if the access date was greater than 10 days ago.
Code starts here:
#!perl -w
use Fil
Title: Sending screen output to multiple output devices simultaneously
Should be able to use Tie to bring
it together.
Wags ;)
-Original Message-From: DePriest, Jason R.
[mailto:[EMAIL PROTECTED]]Sent: Friday, September 21, 2001
11:20To: [EMAIL PROTECTED]Subject:
Sendi
Title: Use of Win32::Daemon
Has anyone used David Roth's module? Any examples? I have loaded, but have no doc. Checked doc which is usually added as part of the ppm install and nothing is there.
Any help would be greatly appreciated.
Wags ;)
Take a look at module called PerlZip. Not vouching for it, but the
developer does frequent a number of different perl lists:
http://www.generation.net/~aminer/Perl/
Wags ;)
-Original Message-
From: Ken Januski [mailto:[EMAIL PROTECTED]]
Sent: Thursday, March 15, 2001 18:10
To: [EMAIL PR
18 matches
Mail list logo
