[28738] in Perl-Users-Digest
Perl-Users Digest, Issue: 10102 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Dec 28 21:05:37 2006
Date: Thu, 28 Dec 2006 18:05:05 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 28 Dec 2006 Volume: 10 Number: 10102
Today's topics:
Re: Different methods to call a subroutine! <tadmc@augustmail.com>
Re: FAQ 5.2 How do I change, delete, or insert a line i <jgibson@mail.arc.nasa.gov>
Re: FAQ 5.2 How do I change, delete, or insert a line i <tzz@lifelogs.com>
Re: How do I convert an array of x-y coordiates in to a <groenator@gmail.com>
Localized STDOUT <sun_tong_001@users.sourceforge.net>
Re: Localized STDOUT <uri@stemsystems.com>
regex help please <jpreston@general-steel.com>
Re: regex help please <mritty@gmail.com>
Re: regex help please <jpreston@general-steel.com>
Re: regex help please <someone@example.com>
Re: regex help please <jpreston@general-steel.com>
Re: regex help please <wahab@chemie.uni-halle.de>
Re: regex help please <uri@stemsystems.com>
Re: regex help please <mritty@gmail.com>
Re: Superformula with Perl? <zentara@highstream.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 28 Dec 2006 18:15:29 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Different methods to call a subroutine!
Message-Id: <slrnep8nh1.i6j.tadmc@tadmc30.august.net>
pod69@gmx.net <pod69@gmx.net> wrote:
> Is there any difference if i call a subroutine wit subroutine() or
> &subroutine() -
Yes.
> whats the different with the "&"!
You are expected to check the Perl FAQ *before* posting to
the Perl newsgroup.
perldoc -q "&"
What’s the difference between calling a function as &foo and foo()?
(which also answers the difference between &foo() and foo() )
> Can anyone tell me that?
Anyone with the courtesy to check the FAQ could.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 28 Dec 2006 12:40:23 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: FAQ 5.2 How do I change, delete, or insert a line in a file, or append to the beginning of a file?
Message-Id: <281220061240239668%jgibson@mail.arc.nasa.gov>
In article <ngkd64-fr8.ln1@blue.stonehenge.com>, PerlFAQ Server
<brian@stonehenge.com> wrote:
>
> 5.2: How do I change, delete, or insert a line in a file, or append to the
> beginning of a file?
> To change only a particular line, the input line number, $., is useful.
> Use "next" to skip all lines up to line 5, make a change and print the
> result, then stop further processing with "last".
>
> while( <$in> )
> {
> next unless $. == 5;
> s/\b(perl)\b/Perl/g;
> print $out $_;
> last;
> }
This example results in a single line being written to the output file.
Is that is what is intended by "To change only a particular line"?
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Thu, 28 Dec 2006 17:17:19 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: FAQ 5.2 How do I change, delete, or insert a line in a file, or append to the beginning of a file?
Message-Id: <g69ac17u0ls.fsf@dhcp-65-162.kendall.corp.akamai.com>
On 28 Dec 2006, jgibson@mail.arc.nasa.gov wrote:
> In article <ngkd64-fr8.ln1@blue.stonehenge.com>, PerlFAQ Server
> <brian@stonehenge.com> wrote:
>
>>
>> 5.2: How do I change, delete, or insert a line in a file, or append to the
>> beginning of a file?
>
>
>> To change only a particular line, the input line number, $., is useful.
>> Use "next" to skip all lines up to line 5, make a change and print the
>> result, then stop further processing with "last".
>>
>> while( <$in> )
>> {
>> next unless $. == 5;
>> s/\b(perl)\b/Perl/g;
>> print $out $_;
>> last;
>> }
>
> This example results in a single line being written to the output file.
> Is that is what is intended by "To change only a particular line"?
Well, that's what the documentation says right before the code, albeit
unclearly :)
Maybe it should be changed to
'The input line number, $., can be used to only change a particular
line. In the following example, we use "next" to skip (without
printing) all the lines up to line 5, make a change to line 5 and
print the result, then use "last" to stop processing by exiting the
loop.'
Ted
------------------------------
Date: 28 Dec 2006 12:04:30 -0800
From: "bogdan" <groenator@gmail.com>
Subject: Re: How do I convert an array of x-y coordiates in to a image?
Message-Id: <1167336270.002298.218990@48g2000cwx.googlegroups.com>
check out this url for more iformation, maybe it will help u out
http://home.iitk.ac.in/~sangals/crystosim/index-all.html
On Dec 28, 3:14 pm, Eadm...@letterbee.com wrote:
> Hi,
>
> Does anyone know how to convert an array of x-y coordinates, plotting a
> shape, in to a image (BMP, GIFF etc) in Perl? I have Image magic etc.
>
> Regards
>
> Eadmund
------------------------------
Date: 28 Dec 2006 20:24:45 GMT
From: * Tong * <sun_tong_001@users.sourceforge.net>
Subject: Localized STDOUT
Message-Id: <4594280d$0$15441$88260bb3@free.teranews.com>
Hi,
I want to use a localized STDOUT in a scope then call my module to capture
its output (which are to STDOUT).
Can someone show me a snip, or direct me to a place where I can find
such snip?
thanks
--
Tong (remove underscore(s) to reply)
http://xpt.sourceforge.net/
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Thu, 28 Dec 2006 17:20:27 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Localized STDOUT
Message-Id: <x7irfvpsr8.fsf@mail.sysarch.com>
>>>>> "T" == * Tong * <* <sun_tong_001@users.sourceforge.net>> writes:
T> I want to use a localized STDOUT in a scope then call my module to
T> capture its output (which are to STDOUT).
i already answered you in the beginners list.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 28 Dec 2006 14:44:44 -0600
From: "Jerry" <jpreston@general-steel.com>
Subject: regex help please
Message-Id: <12p8b5rd0oqbi89@corp.supernews.com>
Hi!
It has been a while that I have done any regex. What I am trying to do is
break down a string like the following:
my $_ = " Emp# EmpStatus MStatus BeganEmp
EndedEmp";
I do not know many words will be in $_ or if there will be spaces at the
front of $_ or not.
Along the getting the words, I need to get all the spaces as a word between
the words and at the end as well.
I have started with:
/\s+(\w+)\s+/g;
print "parm: *1 $1*2 $2*3 $3*4 $4*6 $6*7 $7*8
$8*$9*$10*$11*$12*$_*<br>\n" ;
Thanks,
Jerry
I
------------------------------
Date: 28 Dec 2006 12:52:45 -0800
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: regex help please
Message-Id: <1167339165.614399.257270@a3g2000cwd.googlegroups.com>
Jerry wrote:
> It has been a while that I have done any regex. What I am trying to do is
> break down a string like the following:
>
> my $_ = " Emp# EmpStatus MStatus BeganEmp
> EndedEmp";
$_ cannot be lexicalized. Please post real code. Have you read the
posting guidelines that are posted here twice a week? They contain
invaluable information on how to create a good posting that is likely
to be answered.
> I do not know many words will be in $_ or if there will be spaces at the
> front of $_ or not.
> Along the getting the words, I need to get all the spaces as a word between
> the words and at the end as well.
I don't have a clue what this means. What does "all the spaces as a
word between the words" mean? Please post desired output along with
your sample input. This is another thing that's in those guidelines.
> I have started with:
>
> /\s+(\w+)\s+/g;
>
> print "parm: *1 $1*2 $2*3 $3*4 $4*6 $6*7 $7*8
> $8*$9*$10*$11*$12*$_*<br>\n" ;
And how does the result of this do or not do what you want? Please
post actual output along with desired output and sample input. Again,
this is in the posting guidelines.
As a hunch, I'd say you want to use the split function, splitting on
whitespace, and capturing the delimiter with parentheses, so that the
delimiters are also returned. See
perldoc -f split
And then create a short-but-complete script that demonstrates your best
attempt, along with sample input and output that demonstrates what you
want, what you got, and how they differ.
Paul Lalli
------------------------------
Date: Thu, 28 Dec 2006 15:02:29 -0600
From: "Jerry" <jpreston@general-steel.com>
Subject: Re: regex help please
Message-Id: <12p8c76njs7g61a@corp.supernews.com>
Paul,
Basicly that is the code except for reading a file:
open ( FI, "$work_path\\$form_file" ) or die "Couldn't open
$work_path\\$form_file";
my @text = <FI>;
close FI;
Yes this is wrong "my $_", I was using "my $str" at first.
This is just a simple way to list my results for debuging my code:
print "parm: *1 $1*2 $2*3 $3*4 $4*6 $6*7 $7*8
$8*$9*$10*$11*$12*$_*<br>\n";
Nothing major going on!
Thanks,
Jerry
"Paul Lalli" <mritty@gmail.com> wrote in message
news:1167339165.614399.257270@a3g2000cwd.googlegroups.com...
> Jerry wrote:
>> It has been a while that I have done any regex. What I am trying to do
>> is
>> break down a string like the following:
>>
>> my $_ = " Emp# EmpStatus MStatus BeganEmp
>> EndedEmp";
>
> $_ cannot be lexicalized. Please post real code. Have you read the
> posting guidelines that are posted here twice a week? They contain
> invaluable information on how to create a good posting that is likely
> to be answered.
>
>> I do not know many words will be in $_ or if there will be spaces at the
>> front of $_ or not.
>> Along the getting the words, I need to get all the spaces as a word
>> between
>> the words and at the end as well.
>
> I don't have a clue what this means. What does "all the spaces as a
> word between the words" mean? Please post desired output along with
> your sample input. This is another thing that's in those guidelines.
>
>> I have started with:
>>
>> /\s+(\w+)\s+/g;
>>
>> print "parm: *1 $1*2 $2*3 $3*4 $4*6 $6*7 $7*8
>> $8*$9*$10*$11*$12*$_*<br>\n" ;
>
> And how does the result of this do or not do what you want? Please
> post actual output along with desired output and sample input. Again,
> this is in the posting guidelines.
>
> As a hunch, I'd say you want to use the split function, splitting on
> whitespace, and capturing the delimiter with parentheses, so that the
> delimiters are also returned. See
> perldoc -f split
>
> And then create a short-but-complete script that demonstrates your best
> attempt, along with sample input and output that demonstrates what you
> want, what you got, and how they differ.
>
> Paul Lalli
>
------------------------------
Date: Thu, 28 Dec 2006 21:04:51 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: regex help please
Message-Id: <TjWkh.95629$YV4.35195@edtnps89>
Jerry wrote:
>
> It has been a while that I have done any regex. What I am trying to do is
> break down a string like the following:
>
> my $_ = " Emp# EmpStatus MStatus BeganEmp
You can't use my() on one of Perl's special variables like $_.
> EndedEmp";
>
> I do not know many words will be in $_ or if there will be spaces at the
> front of $_ or not.
> Along the getting the words, I need to get all the spaces as a word between
> the words and at the end as well.
>
> I have started with:
>
> /\s+(\w+)\s+/g;
With your example above that will only match the two strings " Emp# "
and " MStatus ".
> print "parm: *1 $1*2 $2*3 $3*4 $4*6 $6*7 $7*8
> $8*$9*$10*$11*$12*$_*<br>\n" ;
Maybe you want something like this:
$_ = " Emp# EmpStatus MStatus BeganEmp EndedEmp";
my @fields = split;
my $count;
print join '*', 'parm: ', map( ++$count . " $_", @fields ), $_, "<br>\n";
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
------------------------------
Date: Thu, 28 Dec 2006 15:05:34 -0600
From: "Jerry" <jpreston@general-steel.com>
Subject: Re: regex help please
Message-Id: <12p8ccsheksofbd@corp.supernews.com>
OK!
#!/perl
use strict;
local( *FI, *FO );
my $DEBUG = 10;
my $DEBUG1 = 0;
my $work_path = "C:\\Documents and Settings\\Jerry\\My Documents";
my @Form_files = ();
my %Form_data = ();
my $screen_cnt = 0;
## read dir where files exist and get only the file we are interested in
opendir( DIR, $work_path );
@Form_files = grep( /^PAS/,/DFM/, readdir( DIR ));
print "$#Form_files\n" if $DEBUG1;
print "@Form_files\n" if $DEBUG1;
## sort filies
print "@Form_files\n" if $DEBUG1;
@Form_files = sort { $a cmp $b } @Form_files;
print "\n\n@Form_files\n\n" if $DEBUG;
## start of breaking down of form files
foreach my $form_file ( @Form_files ) {
open ( FI, "$work_path\\$form_file" ) or die "Couldn't open
$work_path\\$form_file";
my @text = <FI>;
close FI;
$form_file =~ s/DFM/FDT/; # swap out file ext DFM to FDT -> Form Data
# print "opf - $form_file\n";
## find GENERALto find screen title
my $cnt = -1;
foreach ( @text ) {
## break out be screen #, exp: '(Screen 2)'
print $screen_cnt++ if $_ =~ /\(Screen /i;
print "$screen_cnt screen $_!!" if $_ =~ /\(Screen /i;
$cnt++;
print "cnt $cnt - $form_file - $_";
next if $_ !~ /GENERAL/i;
last;
}
# open ( FO, ">+$work_path\\$form_file" ) or die "Couldn't create
$work_path\\$form_file";
# print FO "$_";
print "\n\n$cnt - $text[ $cnt ] - $_\n\n";
print "\n\njp $cnt+1 - $text[ $cnt+1 ] - $_\n\n";
## get form title and print it
$cnt++;
print "\n\n$cnt - $text[ $cnt ] - $_\n\n";
$cnt++;
# Emp# EmpStatus MStatus BeganEmp EndedEmp
foreach ( $cnt...$#text ) {
$_ = $text[ $_ ];
/(\w+)\s+/g;
print "parm: *1 $1*2 $2*3 $3*4 $4*6 $6*7 $7*8
$8*$9*$10*$11*$12*$_*<br>\n";
print "$form_file - $_";
print $_+'\n';
# exit;
}
# close( FO );
exit;
close( FI );
}
Jerry
"Paul Lalli" <mritty@gmail.com> wrote in message
news:1167339165.614399.257270@a3g2000cwd.googlegroups.com...
> Jerry wrote:
>> It has been a while that I have done any regex. What I am trying to do
>> is
>> break down a string like the following:
>>
>> my $_ = " Emp# EmpStatus MStatus BeganEmp
>> EndedEmp";
>
> $_ cannot be lexicalized. Please post real code. Have you read the
> posting guidelines that are posted here twice a week? They contain
> invaluable information on how to create a good posting that is likely
> to be answered.
>
>> I do not know many words will be in $_ or if there will be spaces at the
>> front of $_ or not.
>> Along the getting the words, I need to get all the spaces as a word
>> between
>> the words and at the end as well.
>
> I don't have a clue what this means. What does "all the spaces as a
> word between the words" mean? Please post desired output along with
> your sample input. This is another thing that's in those guidelines.
>
>> I have started with:
>>
>> /\s+(\w+)\s+/g;
>>
>> print "parm: *1 $1*2 $2*3 $3*4 $4*6 $6*7 $7*8
>> $8*$9*$10*$11*$12*$_*<br>\n" ;
>
> And how does the result of this do or not do what you want? Please
> post actual output along with desired output and sample input. Again,
> this is in the posting guidelines.
>
> As a hunch, I'd say you want to use the split function, splitting on
> whitespace, and capturing the delimiter with parentheses, so that the
> delimiters are also returned. See
> perldoc -f split
>
> And then create a short-but-complete script that demonstrates your best
> attempt, along with sample input and output that demonstrates what you
> want, what you got, and how they differ.
>
> Paul Lalli
>
------------------------------
Date: Thu, 28 Dec 2006 21:52:12 +0100
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: regex help please
Message-Id: <en1bic$4ie$1@mlucom4.urz.uni-halle.de>
Thus spoke Jerry (on 2006-12-28 21:44):
> It has been a while that I have done any regex. What I am trying to do is
> break down a string like the following:
>
> my $_ = " Emp# EmpStatus MStatus BeganEmp
> EndedEmp";
Don't do that, $_ is bound to stay with forever ;-)
(remove the 'my')
> I do not know many words will be in $_ or if there will be spaces at the
> front of $_ or not.
> Along the getting the words, I need to get all the spaces as a word between
> the words and at the end as well.
>
> I have started with:
>
> /\s+(\w+)\s+/g;
You could split on non-blanks and capture the split-results, e.g.:
my $string = " Emp# EmpStatus MStatus BeganEmp EndedEmp ";
print map "[$_]\n", split /(\S+)/, $string;
prints here:
[ ]
[Emp#]
[ ]
[EmpStatus]
[ ]
[MStatus]
[ ]
[BeganEmp]
[ ]
[EndedEmp]
[ ]
("mapped" brackets added for clarity ...)
Regards
M.
------------------------------
Date: Thu, 28 Dec 2006 17:19:26 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: regex help please
Message-Id: <x7mz57pssx.fsf@mail.sysarch.com>
>>>>> "J" == Jerry <jpreston@general-steel.com> writes:
J> #!/perl
J> use strict;
use warnings ;
J> local( *FI, *FO );
why are you using localized file handles? use lexical handles or use
File::Slurp which will be simpler and cleaner.
J> my $DEBUG = 10;
J> my $DEBUG1 = 0;
J> my $work_path = "C:\\Documents and Settings\\Jerry\\My Documents";
J> my @Form_files = ();
J> my %Form_data = ();
no need to assign () to my hashes or arrays. they are always empty. also
declare vars where they are first used.
J> my $screen_cnt = 0;
J> ## read dir where files exist and get only the file we are interested in
J> opendir( DIR, $work_path );
why the localized file handles and not a dirhandle?
J> @Form_files = grep( /^PAS/,/DFM/, readdir( DIR ));
File::Slurp also has a read_dir function for that. no need for an
opendir call and dirhandle then.
that grep makes no sense. the second arg /DFM/ is not operating on $_ in
the grep. my guess is that it is operating on $_ which is not even set
so it would give a warning. hence use warnings would have found
this. what is your intent here, to get lines with either PAS or DFM?
J> ## sort filies
J> @Form_files = sort { $a cmp $b } @Form_files;
text sorting is the default for sort so you can drop the compare block
with File::Slurp that could all become this line:
my @form_lines = grep /^PAS/ || /DFM/, read_dir( $work_path ) ;
that eliminated about 3 lines of code
J> print "\n\n@Form_files\n\n" if $DEBUG;
J> ## start of breaking down of form files
J> foreach my $form_file ( @Form_files ) {
J> open ( FI, "$work_path\\$form_file" ) or die "Couldn't open
J> $work_path\\$form_file";
J> my @text = <FI>;
J> close FI;
those three lines and the local() call can be replaced with:
my @text = read_file( "$work_path/$form_file" ) ;
notice that i used / as that works on winblows as well as unix flavors.
J> $form_file =~ s/DFM/FDT/; # swap out file ext DFM to FDT -> Form Data
J> # print "opf - $form_file\n";
J> ## find GENERALto find screen title
J> my $cnt = -1;
J> foreach ( @text ) {
i prefer to use named variables over $_ whenever possible.
J> ## break out be screen #, exp: '(Screen 2)'
J> print $screen_cnt++ if $_ =~ /\(Screen /i;
but if you do use $_ there is no need to use it explicitly.
print $screen_cnt++ if /\(Screen /i;
J> print "$screen_cnt screen $_!!" if $_ =~ /\(Screen /i;
J> $cnt++;
J> print "cnt $cnt - $form_file - $_";
J> next if $_ !~ /GENERAL/i;
J> last;
why the next/last there? you could invert the boolean (i never use !~
anyhow) with unless and just call last then. next will fallout since
this is the end of the loop.
last if /GENERAL/i;
J> }
J> # open ( FO, ">+$work_path\\$form_file" ) or die "Couldn't create
J> $work_path\\$form_file";
J> # print FO "$_";
write_file( $work_path/$form_file", $_ ) ;
J> print "parm: *1 $1*2 $2*3 $3*4 $4*6 $6*7 $7*8
J> $8*$9*$10*$11*$12*$_*<br>\n";
dunno where all those $1 vars were set. and that is a strange reading
form of output.
and stop top posting. read the group guidelines which are posted
regularly.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 28 Dec 2006 15:29:35 -0800
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: regex help please
Message-Id: <1167348575.250067.194460@i12g2000cwa.googlegroups.com>
Jerry wrote:
> Paul,
>
> Basicly that is the code except for reading a file:
"basicly" doesn't cut it. Did you miss the part where I said "post a
short but complete script"?
>
> open ( FI, "$work_path\\$form_file" ) or die "Couldn't open
> $work_path\\$form_file";
> my @text = <FI>;
> close FI;
> Yes this is wrong "my $_", I was using "my $str" at first.
>
> This is just a simple way to list my results for debuging my code:
> print "parm: *1 $1*2 $2*3 $3*4 $4*6 $6*7 $7*8
> $8*$9*$10*$11*$12*$_*<br>\n";
>
> Nothing major going on!
Congratulations. Did you also miss the part where I asked you,
repeatedly, to post sample input, desired output, and actual output?
I have absolutely no interest in guessing what it is you want your
program to do.
You've used up your charity points with me. I hope someone else is
able to help you.
Godo bye,
Paul Lalli
------------------------------
Date: Thu, 28 Dec 2006 17:43:08 -0500
From: zentara <zentara@highstream.net>
Subject: Re: Superformula with Perl?
Message-Id: <aqh8p25v3gqcb928apc31vk17v427f1411@4ax.com>
On 28 Dec 2006 03:47:05 -0800, "guba@vi-anec.de" <guba@vi-anec.de>
wrote:
>Hello,
>
>I am wondering how parametric formulas like the Superformula
>http://en.wikipedia.org/wiki/Superformula
>can be drawn with Perl. GD or ImageMagick has only some graphic
>primitives and I can not see how this could be done which such
>programs. Or can Perl API to a mathe library be used to
>draw such graphs? Thank you for hints!
>
>Günter
If you have gnuplot going, put these 2 scripts into a dir,
and run "gnuplot super", it will give an animation of sorts.
Play with the values m n1 n2 n3.
######## snip super ####################
# Show some of the new polar capabilities.
#
unset border
set clip
set polar
set xtics axis nomirror
set ytics axis nomirror
set zeroaxis
set trange [0:12*pi]
a=1
b=1
m=4
n1=1
n2=1
n3=8
butterfly(x) = ( ( abs(( (cos(m*x)/4))/a) )**n2
+ ( abs(( (sin(m*x)/4))/b) )**n3 )**(-1/n1)
set samples 800
set title "SuperFormula hold control-c to exit"
unset key
plot butterfly(t)
pause .1 #-1 "Hit return to continue"
count=0
load 'looper'
##### END ####################################
##### snip looper ##########################3
m= m + .1
n1= n1 + .1
n2= n2 + .1
n3= n3 + .1
print m; print n1; print n2; print n3;
replot
pause .1
count = count +1
if(count < 1000) reread
##########################################
zentara
--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 10102
****************************************
