Shane Garza wrote:
>
> Not just in perl this is my first program ever.
>
> I decided to look at perl first while immersed in awe.
>
> I am posting this code for feedback "and hopefully some positive feedback is
> there", I just want to learn ;). So flame away, and try to create the same
> logic in two lines if you can "and that is not sarcastic". I can say that I
> had fun, and it works.
> #======================||||||||||||========================#
> #!/usr/bin/perl
#!/usr/bin/perl -w
use strict;
> sub order
> {
> tr/a-z/A-Z/, $_;
Where did you pick up this idiom?
tr/a-z/A-Z/; # or $_ = lc $_
> s/^\s{1}//g, $_;
s/^\s//g;
> s/\'//g, $_;
s/'//g;
> $ck = (s/\s+/,/g, $_);
> @ct = split(/,/, $ck);
Why change spaces to commas and then split on commas, why not just split
on spaces?
my @ct = split;
> if ($ct[0] =~ (/^\s\d+/) && $ct[4] =~(/\d+/))
> {
>
> [snip rest of code]
>
> if you want to run this program edit the directories, "as if your the
> beginner or something ;| "
> At least every one will get a useful tab delmtd garbage pail collection for
> mysql ;)
> BTW I am serious I know there is an easiar way, unfortunetaly this is how I
> learn the best ..
> Thx all
> okay here is the file that it parses.
>
> [snip copious data]
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
