On Wed, 11 Sep 2002 12:41:25 -0400, [EMAIL PROTECTED] (Jess Balint)
wrote:
>Hey all. Does anyone know how to create a password style text widget in tk?
>I have tried a few things, but can't seem to figure it out. Thanks.
I'm not an expert on Tk , but try this to get you going:
##
Hey Mohd,
My MUA believes you used
to write the following on Wednesday, September 11, 2002 at 4:13:56 AM.
MS> Hi ,
MS> How I can send my errors to a null device under windows environment(winxp).
MS> I tried $myoutput= `anycommand 2>null ` , but always this command create a
MS> file
Hi All,
I have just been reading and learning so much from all of you about Perl.
I have noticed that there are many modules such as the DBD::Oracle.
Where do you get these? Who writes them? How are they installed?
Peace,
Marsie
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional com
NAME
beginners-faq - FAQ for the beginners mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to <[EMAIL PROTECTED]>
You can also specify your subscription email address by sending email to
(assuming [EMAIL PROTECTED] is your email address)
> -Original Message-
> From: Simopoulos [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, September 12, 2002 7:59 AM
> To: Perl Beginners
> Subject: Another Nubie Question
>
>
> Hi All,
> I have just been reading and learning so much from all of you
> about Perl.
> I have noticed that there
Hi,
This little glitch has caused me alot of "useless searching for why".
I thought I was losing my mind. :-)
I'm trying to delete the first line of a file, using Tie::File and
shift.
It works for all the files I have except this one. On this file,
it deletes the first line, and then truncates
begin 644 head.txt
M9&EE(").;R!P87-S=V]R9',@:6X@)'!A2`D:V5Y(#T@,2`K(&EN="!R86YD("1C;W5N=#L*;7D@)'!AF5D865M;VX*9&ER8V]P
M>0ID:7)S:7IE"F-H;6]D"G=R87!I;F=L;VYG;&EN97,*8F%C:W5PG1EF5R;PIA"F9I;&4*<')I;G1F:6QE7!E7-T0IN
M97=L:6YE"FAE861L:6YE"F9I;&5L871EF4*8VAM;V0*=W)A<&EN9VQO;F=L:6YE0IG7-T65X=`IZ97)O"F$*
George Schlossnagle <[EMAIL PROTECTED]> writes:
> I think you need to stop programming C. :)
>
> 'last' is the token you want to use for breaking out of a loop in perl.
In the script I posted `last' used in place of next, doesn't work
like I wanted. It just stops the script on the first file.
> -Original Message-
> From: Harry Putnam [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, September 11, 2002 10:25 PM
> To: [EMAIL PROTECTED]
> Subject: go to next file
>
>
> I know its possible to force perl to read the next file but have
> forgotten how to do it.
>
> The simple script
Dharmender Rai <[EMAIL PROTECTED]> writes:
> you are not reading the files properly.
> use 2 "while loops". the outer for traversing the
> command line args while the inner for reading and
> checking the file contents. use "break" in the inner
> "while loop" when you get a blank line to go to the
Hi all,
On Thursday 12 Sep 2002 1:20 am, Tim Musson wrote:
> Hey Mohd,
>
> My MUA believes you used
> to write the following on Wednesday, September 11, 2002 at 4:13:56 AM.
>
>
>
> MS> Hi ,
> MS> How I can send my errors to a null device under windows
> environment(winxp). MS> I tried $myoutput=
thanks for the responses.
still not working, but i will keep on plugging away or just use one of the
scripts that already exist for doing backups and modify it for what i want.
joe
On Tuesday 06 August 2002 08:25, Joseph Paish wrote:
> here is a copy of the script i am working on
>
> #!/usr/
On Thu, 12 Sep 2002 09:56:41 -0400, [EMAIL PROTECTED] (Zentara)
wrote:
>Hi,
>
>This little glitch has caused me alot of "useless searching for why".
>I thought I was losing my mind. :-)
>
>I'm trying to delete the first line of a file, using Tie::File and
>shift.
>
My attachment wasn't sent righ
Bob Showalter <[EMAIL PROTECTED]> writes:
[...]
>> cat test.pl
>> #!/usr/local/bin/perl -w
>>
>> $regex = shift;
>> while(<>){
>> $cnt++;
>> if($cnt == 1){
>>print "$ARGV\n";
>> }
>> if(/$regex/){
>>printf "%-3d %s", $cnt, $_;
>> }elsif(/^$/){
>>
I have composed this perl script and I would like the results from each
command to append a log file. Is there a way I can do this? I have seen
several examples but none of them looks as if it would achieve what I am
trying to do here. Any help would be appreciated.
#!/usr/bin/perl -w
# file:
Greetings,
I have a script that forks 5 children. I print to screen when each
child gets forked. Under certain conditions in the script a child
should sleep. This conditions occurs at different times for each child.
I think I am noticing that when the sleep is called in a child,
ever
On Thu, 12 Sep 2002 11:50:19 -0400, [EMAIL PROTECTED] (Zentara)
wrote:
>On Thu, 12 Sep 2002 09:56:41 -0400, [EMAIL PROTECTED] (Zentara)
>wrote:
>
>>Hi,
>>
>>This little glitch has caused me alot of "useless searching for why".
>>I thought I was losing my mind. :-)
>>
>>I'm trying to delete the fi
Mike Singleton wrote:
> open IN, $_ or die "open $_: $!";
> while () {
> my @f = split /s+/,$_,9;
> print OUT join (',', @f) . "\n" if
>/$JOBSTART|$CONDSTART|$JOBEND|$CONDEND|$JOBCANC|$XFER|$VOLUSED/i;
>
'print if(EXP)', make sure the EXP is true. otherwise, you will
have nothing to
> -Original Message-
> From: Chad Kellerman [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, September 12, 2002 12:37 PM
> To: [EMAIL PROTECTED]
> Subject: sleep question
>
>
> Greetings,
> I have a script that forks 5 children. I print to
> screen when each
> child gets forked. Unde
Basavaraj Bendigeri wrote:
>
> use Expect;
> use IO::Tty;
> use IO::Pty;
> use Safe;
>
> $Expect::Debug=1;
> $compartment = new Safe;
> $compartment->deny(qw(print));
> $compartment->reval(&test_func);
>
> This is just a sample script wherein I am trying to deny
> the print function. Bu
Marija Silajev wrote:
> Hi,
>
> I create a hash like following:
>
>
> $Data{$KEYS} = { key1 => [@array1],
> key2 => [@array2],
> };
>
>
> with:
> foreach $KEYS ( keys %Data){
> print "Key1 data : @{$Data{$KEYS}{key1}}\n";
> }
>
> I manage to print the w
-Original Message-
From: Winchester, Derek S (Derek) [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 12, 2002 12:22 PM
To: [EMAIL PROTECTED]
Subject: logging data to text file
I have composed this perl script and I would like the results from each
command to append a log file. Is
David --- Senior Programmer Analyst --- Wgo Wagner wrote:
> Your log shows a space between the time and hyphen and hyphen and
> Micro. You dont' have that in the regex and even more so, there is no
> hyphen before Adapter log.
>
> You might want:
> /^(\d\d-\d\d-\d{4})\s+(\d\d:\d\d:\d\d\.\d\d).+A
Hello,
My appologies if this particular problem has shown up here before. I
looked around, but didn't see anything that quite addressed it.
I am trying to build perl on my windows system using gcc and dmake. The
versions are:
Win 2000 5.00.2195 SP3
Perl 5.8.0
gcc 2.95.2
dmake 4.1
I followed th
Hi,
I just tried to install both modules (Win32::Service & Win32::Lanman). Get
the message that I am using the wrong build of Perl. Both files were
downloaded from CPAN.
Didn't see a make.pl file, but did see an install.pl file. Ran that file and
get the error message above. Do I need to create
> "mmaunder" == mmaunder <[EMAIL PROTECTED]> writes:
mmaunder> Learning Perl - Schwartz and Christainsen - Oreilly (£10)
This is definitely 2nd edition from the author list (now
deprecated, replaced by third edition in all manners of speaking)...
mmaunder> Programming Perl - Larry Wall et
Harry Putnam wrote:
> #!/usr/local/bin/perl -w
>
> $regex = shift;
> while(<>){
> $cnt++;
> if($cnt == 1){
>print "$ARGV\n";
> }
> if(/$regex/){
>printf "%-3d %s", $cnt, $_;
> }elsif(/^$/){
>$cnt = 0;
>next;
> }
> }
you are fe
#!/usr/bin/perl -w
@col_header = ('Sybase Server','Function','Type','Unix
Machine','Location');
my $num_col_header = @col_header ;
$td0= join(' ',
@col_header[0..($num_col_header -1)]);
$td= ''."$td0".'';
print "$td";
# out put:
Sybase Server Function
Type Unix Machine Locatio
n
Please
What you have here "@f[6,2..$#f]" is an array slice. Any indexes appearing
within the brackets will be included. If you wanted to exclude 0,1,and 6,
you could do it this way:
@f[2..5,7..$#f];
-Original Message-
From: Mike Singleton [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September
I didn't test it, but this should work, right?
-Original Message-
From: loan tran [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 12, 2002 4:02 PM
To: [EMAIL PROTECTED]
Subject: Can my code be shortened?
#!/usr/bin/perl -w
@col_header = ('Sybase Server','Function','Type','Unix
Mac
Why don't you install it via PPM? If it's not in the Activestate
repository, you can install it using Dave Roth's PPM repository.
PPM> set repository dave http://www.roth.net/perl/packages
PPM> set save
PPM> install win32-service
For Win32::Lanman (and many other useful modules), use Jenda's r
try something like:
my @k = ('Sybase Server','Function','Type','Unix Machine','Location');
print '';
map { print '',$_,"\n"} @k;
print '';
david
Loan Tran wrote:
> #!/usr/bin/perl -w
> @col_header = ('Sybase Server','Function','Type','Unix
> Machine','Location');
> my $num_col_header = @col_h
Loan Tran wrote:
>
> #!/usr/bin/perl -w
> @col_header = ('Sybase Server','Function','Type','Unix
> Machine','Location');
> my $num_col_header = @col_header ;
> $td0= join(' ',
> @col_header[0..($num_col_header -1)]);
> $td= ''."$td0".'';
> print "$td";
>
> # out put:
>
> Sybase Server
It works perfectly. Thanks mucho.
--- Kirby_Sarah <[EMAIL PROTECTED]> wrote:
> I didn't test it, but this should work, right?
>
> -Original Message-
> From: loan tran [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, September 12, 2002 4:02 PM
> To: [EMAIL PROTECTED]
> Subject: Can my code be
Tim,
Thanks for this information.
I managed to install Win32::Lanman using PPM. But I still got an error
message installing Win32::Service. I'm going to see how difficult Lanman is
before racking my head with Win32::Service.
But here is the error I got if anyone is interested. :)
***
david <[EMAIL PROTECTED]> writes:
> you are feeding reg directly to Perl from the user in 'if(/$regex/)' there
> is a chance that this will crash your program consider:
>
> #!/usr/bin/perl -w
> use strict;
>
> eval{
> while(){
> chop;
> /$_/o;
> }
It looks like you might want to do a full uninstall/reinstall of ActivePerl
and see if that clears it up.
-Original Message-
From: Yuen, Alex [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 12, 2002 1:33 PM
To: 'Perl Beginners'; 'Timothy Johnson'
Subject: RE: Window Services - stop/
Harry Putnam wrote:
>
> Excuse my skull bone density... not sure I follow this. Not sure I
> see how `chop' does anything to `\'
>
> [...]
>
assume your program is named scan.pl, what happen is you call it:
scan.pl '\'
your script always assume user will be entering a valid reg to use. i a
Hi All,
Thanks for reponses to my recent question.
Regarding external program IO, wondering what is the best approach?
To date I've used backticks, and processed each line as it has passed..
Wondering if perhaps file handles would be a better approach - I can't see
the advantage, but then I ca
The only advantage I can think of is if you are getting tremendous amounts
of output from the program. I don't know if it would cut down on the memory
used if you could while(<>) it with a filehandle.
-Original Message-
From: HENRY,MARK (HP-Roseville,ex1) [mailto:[EMAIL PROTECTED]]
Sent
david <[EMAIL PROTECTED]> writes:
> Harry Putnam wrote:
>
>>
>> Excuse my skull bone density... not sure I follow this. Not sure I
>> see how `chop' does anything to `\'
>>
>> [...]
>>
>
> assume your program is named scan.pl, what happen is you call it:
>
> scan.pl '\'
It will wait for inpu
Harry Putnam wrote:
> david <[EMAIL PROTECTED]> writes:
>
> Won't is still quite even with the eval, in the above case?
>> passing it to Perl
>
> Can you give an example of this?
no it doesn't. if you put it inside an eval{}, it won't quit. consider:
#!/usr/bin/perl -w
use strict;
my $reg =
Hi,
I'm losing my patience with this one.
Can anyone tell me why in the following script,
the second printout, is missing the first line?
Why dosn't the second file seek reset the filehandle?
#!/usr/bin/perl -w
use strict;
my $file = 'test.txt';
my
Zentara wrote:
> Hi,
> I'm losing my patience with this one.
> Can anyone tell me why in the following script,
> the second printout, is missing the first line?
> Why dosn't the second file seek reset the filehandle?
>
> #!/usr/bin/perl -w
> use st
I want to install some mods on my Unix system but don't have root access. Is there
a way to do a local installation (ie, under my home directory)??? Seems you have to
be root since there is some linking to the system libraries.
I've checked the documentation for perlmodinstall, but don't see th
On Thursday, Sep 12, 2002, at 16:30 US/Pacific, Jeff wrote:
> I want to install some mods on my Unix system but don't have root
> access. Is there
> a way to do a local installation (ie, under my home directory)???
> Seems you have to
> be root since there is some linking to the system libra
david <[EMAIL PROTECTED]> writes:
> Harry Putnam wrote:
>
>> david <[EMAIL PROTECTED]> writes:
>>
>> Won't is still quite even with the eval, in the above case?
>>> passing it to Perl
>>
>> Can you give an example of this?
>
> no it doesn't. if you put it inside an eval{}, it won't quit. consid
Thank you. Now I can quit the horizontal scrolling.
On Wed, 11 Sep 2002 20:52:59 -0400, [EMAIL PROTECTED] (Bob
Showalter) wrote:
>
>I know beans about formats, but perldoc perlform contains this statement:
>
>"The expressions may be spread out to more than one line if enclosed in
>braces. If so,
Harry Putnam wrote:
> david <[EMAIL PROTECTED]> writes:
>
>> Harry Putnam wrote:
>>
>>> david <[EMAIL PROTECTED]> writes:
>>>
>>> Won't is still quite even with the eval, in the above case?
passing it to Perl
>>>
>>> Can you give an example of this?
>>
>> no it doesn't. if you put it insi
On Thu, Sep 12, 2002 at 05:04:20PM -0700, Harry Putnam wrote:
> david <[EMAIL PROTECTED]> writes:
>
> I must be a real dunce, but I still don't get the point.
> If a bad regex is given, I want the program to stop.
>
> Your script above doesn't spit an error, it just fails and gives some
> other
And once you've installed the modules, you'll need to either append your "personal
library" to the 'PERL5LIB' environment variable or include the 'use lib' pragma in
your program.
Karl
- Original Message -
From: drieux
To: begin begin
Sent: Thursday, September 12, 2002 6:58 P
I have a statement as follows;
I need to split them into 3 parts;
* test_merge1 \\blrk35ed\views\test_merge1.vws
LIke this:
$var1 should have *
$var2 should have test_merge1
$var3 should have \\blrk35ed\views\test_merge1.vws
TIA
Jav
Javeed SAR wrote:
>
> I have a statement as follows;
> I need to split them into 3 parts;
>
> * test_merge1 \\blrk35ed\views\test_merge1.vws
>
>
> LIke this:
> $var1 should have *
> $var2 should have test_merge1
> $var3 should have \\blrk35ed\views\test_merge1.vws
>
>
>
> TIA
>
>
I've been working on moving from Win2k to Linux and learning Perl
at the same time, so I thought I'd kill two birds with one stone and
write a Perl program to convert my IE bookmarks to Mozilla format.
The meat of the code is at the end - comments and suggestions are
more than welcome.
At an
On Fri, 13 Sep 2002, Javeed SAR wrote:
>
>
> I have a statement as follows;
> I need to split them into 3 parts;
>
> * test_merge1 \\blrk35ed\views\test_merge1.vws
>
>
> LIke this:
> $var1 should have *
> $var2 should have test_merge1
> $var3 should have \\blrk35ed\views\test_merge1.vw
On Thu, Sep 12, 2002 at 04:30:12PM -0700, Jeff wrote:
> I want to install some mods on my Unix system but don't have root access.
> Is there a way to do a local installation (ie, under my home directory)???
> Seems you have to be root since there is some linking to the system
> libraries.
Yes,
Javeed Sar wrote:
>
> I have a statement as follows;
> I need to split them into 3 parts;
>
> * test_merge1 \\blrk35ed\views\test_merge1.vws
>
> LIke this:
> $var1 should have *
> $var2 should have test_merge1
> $var3 should have \\blrk35ed\views\test_merge1.vws
$_ = '* test_merge1
Hi,
I have \\blrk35ed\views\test_merge.vws in a variable $tmpview1
How to replace \\blrk35ed\views\test_merge.vws with
blrk35ed\\views\\test_merge1.vws
TIA
jav
I have written a perl program which I want to give to my
friends to try out. But the program uses a few libraries
that are normally not installed by default. So how do I
ship my program? What is the general way of doing this?
In java, when I give my program I also give the libraries
ie., the ja
On Thursday 12 September 2002 08:11 pm, Javeed SAR wrote:
> I have a statement as follows;
> I need to split them into 3 parts;
>
> * test_merge1 \\blrk35ed\views\test_merge1.vws
>
>
> LIke this:
> $var1 should have *
> $var2 should have test_merge1
> $var3 should have \\blrk35ed\views\t
How about this?
$tmpview1 =~ s/\\//g;
-Original Message-
From: Javeed SAR [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 12, 2002 11:03 PM
To: [EMAIL PROTECTED]
Subject: replace
Hi,
I have \\blrk35ed\views\test_merge.vws in a variable $tmpview1
How to replace \
Hy everybody in the List!
I have a Problem writing a little perl application...
Im a very newbie to programming and need your help :)
The Problem is:
I have a file "dev.txt" and I want to rename it once a day (with a cronjob) like
"dev13092002.txt"
So i need to rename it with a date variabl
62 matches
Mail list logo
