Hi ,,,
this my first time i write to you :)
i have the uncluder script
$file = $ENV{'QUERY_STRING'};
print "Content-type: text/html\n\n";
if($file eq "") {
print "document.writeln('
Includer Error: No File Specified.
');\n"; print "document.writeln('Script by SmartCGIs.com
<%5C%22http://www.sm
I am attaching a script from my second book
(http://www.roth.net/books/handbook/) set privileges, remove them, enumerate
them for a user, enumerate users with a priv and if you pass in -p then it
will display all of the available privileges.
dave
-Original Message-
From: Veeraraju_Maredd
how can I make a shape (eg: a line, or an oval) in a
canvas resizable when I shrink or enlarge the whole
canvas?
_
Do You Yahoo!? µÇ¼Ãâ·ÑÑÅ»¢µçÓÊ! http://mail.yahoo.com.cn
ÎÞÁÄ£¿ÓôÃÆ£¿¸ßÐË£¿Ã»ÀíÓÉ£¿¶¼À´ÁÄÌì°É£¡¡ª¡ª
ÑÅ»¢È«ÐÂÁÄÌìÊÒ! http:/
Hi,
I had correctly created a system DSN (OS windows 98), this DSN does not require usr
and so password,
if (!($db = new Win32::ODBC("Gestion100"))){
print "Error connecting to $DSN\n";
print "Error: " . Win32::ODBC::Error() . "\n";
exit;
}
I'm perplexed about the error signposted
Brett W. McCoy wrote:
>On Fri, 25 Jan 2002, IT Workflow - Terry Honeyford wrote:
>
>>I am trying to print out only the lines that begin with Either "Unable to
>>attach to", OR "Backup of"
>>and append to the line "NOT OK" or "OK" depending on which match I get
>>Here is the offending bit of scrip
On Fri, 25 Jan 2002, IT Workflow - Terry Honeyford wrote:
> I am trying to print out only the lines that begin with Either "Unable to
> attach to", OR "Backup of"
> and append to the line "NOT OK" or "OK" depending on which match I get
> Here is the offending bit of script...
>
> open (FILE, "
>
> why I always get the error messages like:
> "bad screen distance "fill" at D:/Perl/site/lib/Tk.pm
> line 228."
> when I use
> "$id = $canvas->create ('line',
> 10, 10, 100, 100,
> fill => 'red'
> ); "?
> Isn't it right?
No, no
> I am getting a lot of email with munged dates in it and I
> would like to fix them by grabbing them with procmail and
> passing them to a perl program to update the Date: string.
>
> First, is this possible? Can I pass an email to perl and
> then update it in the mail spool? If I can't, then I
> I typically use something like:
>
> $clear = `clear`;
> print "$clear";
>
> Make sure the clear command is in your path ('which
> clear' from the shell will tell you if/where it is).
The Cookbook suggests using the Term::Cap module, but isn't
worth it unless you care about calling an external
why I always get the error messages like:
"bad screen distance "fill" at D:/Perl/site/lib/Tk.pm
line 228."
when I use
"$id = $canvas->create ('line',
10, 10, 100, 100,
fill => 'red'
); "?
Isn't it right?
That reminds me, if you had done `od `, it would have output the
file in octal, which would have given you what you wanted. ;-)
-Original Message-
From: Jason Purdy [mailto:[EMAIL PROTECTED]]
Sent: Friday, January 25, 2002 3:03 PM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: Re: Text
On Jan 25, Brent Michalski said:
>system(qq{copy "C:/Documents and Settings/ryang/Start
>Menu/Programs/Yardi 4.3/*.*" "//$comp/c\$/winnt/profiles/all
>users/start menu/programs/Yardi 4.3/"}) || print "Failed!" && next;
The only typo I can see is the || should be an &&, due to the nature
Nevermind ... found it on google:
s/\013//gs;
Thanks for the tip on od & "vertical tab"
Now I got other characters to chase down! ;)
Jason "lovin' CSV right now ;)" Purdy
If memory serves me right, on Friday 25 January 2002 15:01, Jason Purdy wrote:
> I thought that woulda done it too (didn't
I thought that woulda done it too (didn't try the \cV, but still the same
result - not working :().
I've expanded the s///'s:
foreach ( @lines ) {
s/\cV//gs;
s/\cv//gs;
s/\\v//gs; # just for giggles ;)
Any other ideas?
Thanks!
Jason
If memory serves me right, on Frid
You can always use the Win32::Lanman module and include a line like this:
Win32::Lanman::NetServerDiskEnum("$client",\@drives);
to check across the network.
-Original Message-
From: Jonathan E. Paton [mailto:[EMAIL PROTECTED]]
Sent: Friday, January 25, 2002 11:09 AM
To: [EMAIL PROT
I didn't look it up in a table, but it should be a vertical tab. This
explains why the printed output has so much space (in you original email)
between `"OTHER` and the closing `"`. I am guessing that something like
s/\cV// or s/\cv// should do the trick.
-Original Message-
From: Jason Pu
That's a cool tip - thanks! Now when looking at the file, I see this:
$ od -c oldfile3.csv |more
100 O N E L B R A I D Z E N 1 9
120 6 1 \v 7 0 7 O F F I C E " , "
What the heck is a "\v"? When I tried to s
Greetings;
I am getting a lot of email with munged dates in it and I
would like to fix them by grabbing them with procmail and
passing them to a perl program to update the Date: string.
First, is this possible? Can I pass an email to perl and
then update it in the mail spool? If I can't, then I
you can use the Unix command `od -c `, which will give you an
octal dump in character mode of the file. This will tell you what characters
are where in the file.
-Original Message-
From: Jason Purdy [mailto:[EMAIL PROTECTED]]
Sent: Friday, January 25, 2002 2:25 PM
To: [EMAIL PROTECTED]
S
AAARGH, MY EYES;o)
Use a forward slash! It should work no problem in Win.
system("copy \"C:\\Documents and Settings\\ryang\\Start
Menu\\Programs\\Yardi 4.3\\*.*\" \"$comp\\c\$\\winnt\\profiles\\all
users\\start menu\\programs\\Yardi 4.3\\\"") || print "Failed!" && next;
Wo
I have this CSV file given to me to grab fields and compare/update against a
db following some rules. I'm having problems parsing the CSV file, though,
b/c of some certain characters.
I don't know what the characters are (newlines, \r's, etc [or some
combination of the above]) and I tried s/
I am trying to copy files into users start menus because of an installation
gone awry. The files goto different places depending on the os.
networked computers are referred to as:
\\(computername)\(driveletter)$
john doe's machine name:
\\doej\c$(for the c drive)
\\doej\d$(for the d d
> If you don't mind you'll miss CDs you can use -e :
>
> print "C: exists\n" if -e 'c:\\';
> ...
>
> If you do mind try :
>
> use Win32::FileOp qw(Substed);
> print "C: exists\n" if Substed 'c:';
> ...
>
> and if you want to get all drives use
>
> @drives
From: Ryan Guy <[EMAIL PROTECTED]>
> How do I check to see if a drive (i.e. C: or D:) exists??
>
> I am writing a script to couple start menu files to the all users
> directory of different windows configurations and I need to know this
> to edit the shortcuts on some machines
> How do I check to see if a drive (i.e. C: or D:) exists??
>
> I am writing a script to couple start menu files to the
> all users directory of different windows configurations
> and I need to know this to edit the shortcuts on some
> machines (forget about why). Any help would be greatly
> app
Thanks Rob,
Your way makes more sense to use.
-Original Message-
From: Rob Genovesi [mailto:[EMAIL PROTECTED]]
Sent: Friday, January 25, 2002 10:48 AM
To: [EMAIL PROTECTED]
Subject: RE: clearing the screen...
I typically use something like:
$clear = `clear`;
print "$clear";
Make s
I typically use something like:
$clear = `clear`;
print "$clear";
Make sure the clear command is in your path ('which clear' from the shell
will tell you if/where it is).
Saving the results of the clear command to a variable saves you from having
to make a system call every time you want to c
#!perl
@driveletters = (C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z);
for (@driveletters) {
s#$#:\\#;
print "$_\n" if ! -e;
print "$_ found\n" if -e;
}
If you need to do different things based on different versions of Windows, one
way to find the particular version
Hello ABhagwandin,
You could use system(clear) inside of your perl script.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Friday, January 25, 2002 10:29 AM
To: [EMAIL PROTECTED]
Subject: clearing the screen...
I know that in Bourne Shell programming
I know that in Bourne Shell programming, you can use a command such as 'tput
clear' to clear the screen for you. Is there something similar in Perl?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
How do I check to see if a drive (i.e. C: or D:) exists??
I am writing a script to couple start menu files to the all users directory
of different windows configurations and I need to know this to edit the
shortcuts on some machines (forget about why). Any help would be greatly
appreciated.
--
Nope... the . loses its metaness when inside the character class...
where the regexp *does* stuff up is that it allows more than one decimal
point in the string...
deen "yayy I know something!" hameed
On Fri, 25 Jan 2002, John Edwards wrote:
> Oh. One more thing.
>
> Your regex should have t
On Jan 25, Dave Rankin said:
>be a bad approach. Here's the code I came up with:
The "best" approach is to use a hash, since it is optimized for making
sure its keys are unique.
>my $matches; ## running with "use strict;"
>while (<>) {
> while (/(\w+)/ig) {
The /i isn't needed, since \w
I am trying to print out only the lines that begin with Either "Unable to
attach to", OR "Backup of"
and append to the line "NOT OK" or "OK" depending on which match I get
Here is the offending bit of script...
open (FILE, "){
chomp;
if (m/^Unable to attach to/){
$line .= "$_ \t NOT OK";
}elsif{
Use Date::Parse and Date::Format, it works much the same way. It is part of
the TimeDate package on CPAN.
use Date::Parse;
use Date::Format;
$date = time2str("%Y-%m-%d", str2time("22-January-2002"))'
Rob
-Original Message-
From: Lysander [mailto:[EMAIL PROTECTED]]
Sent: Friday, Janu
I'm not sure what you mean about chomp's weird effect, but the newline
character in windows is still \n. In Windows that stands for a Carriage
Return and then a Line Feed.
-Original Message-
From: IT Workflow - Terry Honeyford
To: [EMAIL PROTECTED]
Sent: 1/25/02 8:27 AM
Subject: Stripp
--howdy:
--maybe i'm not following this, but,
are you saying 'du -sk /directory'
doesn't do what you want?
--grant it, this is a perl mail list, but
does things really have to be that complicated?
-X
I don't reach understand how I could obtain the size of a given
directory and all the sub-dir
On Fri, 25 Jan 2002, IT Workflow - Terry Honeyford wrote:
> I am reading a line at a time of a windows log file
> and want to strip off the CR or LF characters at the end of the line
> chomp seems to have a weird effect (returning the cursor to the beginning of
> the line!)
> I am sure there is a
This should work...
s/\n\r?$/gm
MS line endings are ASCII 10, 13.
Rob
-Original Message-
From: IT Workflow - Terry Honeyford
[mailto:[EMAIL PROTECTED]]
Sent: Friday, January 25, 2002 11:27 AM
To: [EMAIL PROTECTED]
Subject: Stripping windows CR/LF characters
I am reading a line at a ti
I was wondering if there is an easy way to convert between date formats in PERL.
Specifically I need to rewrite "22-January-2002" as "2002-01-22" prior to inserting
into a date field in MySQL.
In PHP (which is what I usually code in) I would just do something like
$date = date("Y-m-d",strtotim
I am reading a line at a time of a windows log file
and want to strip off the CR or LF characters at the end of the line
chomp seems to have a weird effect (returning the cursor to the beginning of
the line!)
I am sure there is a regex to do this (similar to s/\cM//g for MAC line
endings)
but I
| Can Perl call the function in matlab? Or if there are
| some api which enable use to matlab's abundent
| graphics function in perl programming?
Reading through your original post again makes me realize
that it's graphics functions you're aiming at. I fear you
won't be able to produce graphical
Hello,
I don't reach understand how I could obtain the size of a given
directory and all the sub-directory..
Is there a function doing that ? or Is somebody have a sub doing that ?
Another question :
What is the meanning of this 512 bytes for a directory when I do a LL on
my unix system ?
Hi Everybody,
I'm working through the "Mastering Regular Expressions" book right now, so
after reading the question earlier this week about finding the number of
unique words in some input and the really great responses everybody sent, I
wondered if I couldn't think of another way to do this (
| Can Perl call the function in matlab? Or if there are
| some api which enable use to matlab's abundent
| graphics function in perl programming?
I think this is possible. However, I'm pretty sure it's
a bit of work. You will need to write an XS interface
module for Perl that allows you to call r
Can Perl call the function in matlab? Or if there are
some api which enable use to matlab's abundent
graphics function in perl programming?
Thanks!
_
Do You Yahoo!? µÇ¼Ãâ·ÑÑÅ»¢µçÓÊ! http://mail.yahoo.com.cn
ÎÞÁÄ£¿ÓôÃÆ£¿¸ßÐË£¿Ã»ÀíÓÉ£¿¶¼À´ÁÄ
Yes, but use CGI::Carp qw(fatalsToBrowser); will print most perl error
messages to the html output.
This is very useful if you are trying to develop a CGI script remotely. Once
you start using the other features of the module, it makes CGI development
fly along.
Even though there is overhead in
or do:
print "Content-type: text/html\n\n";
/Jon
John Edwards wrote:
>
> This looks like your script isn't returning the correct HTML headers. It's
> not a database connection fault. I would strongly suggest using the CGI.pm
> module. This provides an easy interface to all things CGI.
>
> All
This looks like your script isn't returning the correct HTML headers. It's
not a database connection fault. I would strongly suggest using the CGI.pm
module. This provides an easy interface to all things CGI.
All this to the top of your script.
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBro
Hi,
I just need when does this kind of error is raised :
[Fri Jan 25 15:16:29 2002] [error] [client 127.0.0.1] malformed header from script.
Bad header=Error connecting to gestion100: c:/phpweb/cgi-bin/majbd.cgi
Kind Regards, asma
From: "mb" <[EMAIL PROTECTED]>
> I'm asking to connect to a DSN system (on windows98) ... I ceated a
> DSN file so to get connection on it.
Beg your pardon? What excatly did you create? A User DSN? A System DSN? A File
DSN?
> and when excecuting the small
> lignes bellow .
>
From: "Darryl Schnell" <[EMAIL PROTECTED]>
> This may not be the place to ask this question so forgive me. I know a
> few people who are obsessed with the way their perl code is formatted
> and I was wondering what does actual good readable perl code and bad
> formatted perl co
On Jan 25, John Edwards said:
>Your regex should have the . escaped. Currently it is matching on either a
>number or *any character* between the a and z. Although this works, it may
>bite you if you have a line like this...
Regex metacharacters all lose their meaning inside a character class.
[
Hi,
You want something like:
while () {
print OUT unless /^\w{15}\s{3}/;
}
Jonathan Paton
__
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe,
Hi,
I prefer using the other form of if/unless etc when
possible. And I run under 'use strict;', hence I properly
localise my variables.
I.e.
if ($action eq "Submit") {
my ($value, $value) = (1, 2);
$testus = 6 if ($testus eq "2");
}
> but I think what you wrote can be considered foll
hi,
I'm asking to connect to a DSN system (on windows98) ... I ceated a DSN file so to get
connection on it.
and when excecuting the small lignes bellow .
#!/perl/bin/perl
use Win32::ODBC;
my($db) = new Win32::ODBC("ConnectGestion100;UID=mouna;PWD=mennou;");
$db->Sql("SELECT * FROM F_ARTICLE")
Hi
Please help if you can.
Kind Regards
Stuart Clark
How do I delete each line in the test file that has 15 numbers and/or
letters followed by 3 whitespace characters.
The following file has the above situation on the first two lines
# start of file test
ccyymmdd4534323 043392H
ccyymmdd45
Dear All,
Is there any way to grant a NT right to User using the Script.Any module for
this purpose
Thanks and Regards
Raju M.V
**
This email (including any attachments) is intended for the sole use of the
intended recipien
> Well I'm just wondering if there is much difference between Sender and
> Sendmail:
>
I guess, the simplicity of sending mail attachments is laudable with
Mail::Sender, whereas you have to work out a bit more in Mail::Sendmail to
make attachments work!
The same reason behooves well for sending
> http://search.cpan.org/doc/JENDA/Mail-Sender-0.7.10/Sender.pm.html
>
> and sending mail took a bit of code like this:
Implied... use Mail::Sender;
> ref ($sender = new Mail::Sender({from => '[EMAIL PROTECTED]', smtp
> => 'company.com'})) or die "$Mail::Sender::Error\n";
>
> (ref ($sender->Mail
On Thu, Jan 24, 2002 at 10:24:16AM -0800, Shaun wrote:
> I have used the CPAN network at least 6 times and every single time, about 2 hours
>after I finish
> I my hard drives lock up and the system goes down. It is a Maxtor 7200 RPM 30G
>drive, on Red Hat
> 7.2.
> It has a 1.2 Ghz processor and
On Fri, Jan 25, 2002 at 01:58:00PM +1100, Stuart wrote:
> Hi
> Please help if you can.
> Thanks again
> Stuart Clark
>
>
> How do I add all the number between the "a" and the "z"
> My output file only gives me the instances of the matching pattern and
> not the total
>
> # start of file test
hi
im trying to build a webpage with perl CGI the object way...
the only documentation i have looked at is man CGI
can anyone recommend some online documentation?
anyway:
is it possible to render a table with something like:
print $newCGI->start_table(-border=>'1');
print $newCGI->end_tabl
I'm running a script which uses the Net::FTP module to run FTP sessions on
both UNIX and Vax/VMS boxes. I'm having problems trying to change the type
of data transfer. Extracts from the script follows
..
..
$host = "x";
$user = "xxx";
$password = "xx";
$type1 = "ascii";
$type2 = "bina
Morgan,
You will have to refer the manpages for these functions
1) split (perldoc -f split)
2) open (perldoc -f open)
3) chomp (perldoc -f chomp)
The way to do this would be
1) Read in every line of the text file and chomp of the newline
2) Split the line such that you end up an array like this
Darryl Schnell wrote:
>
> This may not be the place to ask this question so forgive me. I know a few people
>who are obsessed with the way their perl code is formatted and I was wondering what
>does actual good readable perl code and bad formatted perl code look like?
>
> I usually have my co
Morgan Norell wrote:
>
>
> Can anyone give me some hints how to do this I'am totaly lost.
>
read about files and regexps. There's a good book called 'learning perl'
you should check out. If you're not interested in buying books, check
the online info and perldoc.
If you're not interested in l
Oh. One more thing.
Your regex should have the . escaped. Currently it is matching on either a
number or *any character* between the a and z. Although this works, it may
bite you if you have a line like this...
3034364717283459322a15f32zM042001H
which you don't want to include in the re
This line
$total += /a([\d.]+)z/;
is adding the number of successful matches (1 for each iteration in this
case) of the regex to $total. There are three lines, three matches.
You need to store the result of the regex as a list value, not scalar.
while () {
($match) = /a([\d.]+)z/;
Hi
I need help with this:
I have a text file looking like this
username || password[EMAIL PROTECTED]
username || password[EMAIL PROTECTED]
username || password[EMAIL PROTECTED]
I need a perl program who makes a file of each domainX.com in a
separate dir
Hi
Please help if you can.
Thanks again
Stuart Clark
How do I add all the number between the "a" and the "z"
My output file only gives me the instances of the matching pattern and
not the total
# start of file test
3034364717283459322a15.32zM042001H
3045434551648534245a243.56zM
the seond char must be a letter and you can't have a . in a variable name
-Original Message-
From: Naveen Parmar [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 24, 2002 3:06 PM
To: [EMAIL PROTECTED]
Subject: Scalars
Why are the following 2 invalid scalar assignments?
B. $17april =
* Naveen Parmar ([EMAIL PROTECTED]) wrote:
> Why are the following 2 invalid scalar assignments?
>
> B. $17april = $dayDay 2;
> C. $april.17 = $dayDay 2;
>
> TIA,
> - NP
Looks like homework to me :)
--
___vvz __
(_, ` ) ( )Jeff Bisbee#!/usr/bin/perl -w
`~~~) )/\ [EMAIL
This may not be the place to ask this question so forgive me. I know a few people who
are obsessed with the way their perl code is formatted and I was wondering what does
actual good readable perl code and bad formatted perl code look like?
I usually have my code looking something like this:
74 matches
Mail list logo
