alt.comp.lang.perl Google Group

651221 Constantly updated Free COmputer and business portal 41

wilcox_and...@childcustodyfordads.eyetraffic.net (Andrew W.) — Tue, 19 ม.ค. 2010 21:32:53 UT

I fell in love with the net and all the compuiter teahcnology in the very early years and have loved it ever since, I have an IT Degree and Communications degree and will be working on my doctorate for the next five years, in bwetween I design websites, databases, Multimedia Produxction or anything that wil make me a penny, just student scraping by. But Guess what? I don't want your money, your e-mail, or anything. Each of these sites has a specific topic but they have them style and layout sothey are easy to navigate and ther a search function should take you to exactly where youwant to, or just explore, they have outside service you can acccess as well. Each site has 10,000 plus articles and they are updated everyday so you know you are gettin up to date information. ENough, here the computer and tech related sites.

Re: converting list to table

nospam.gravitral...@hotmail.com.nospam (George Mpouras) — Fri, 13 พ.ย. 2009 11:27:13 UT

Hello Jay,
The code bellow will do what you want. I hope it helps a litle
George Mpouras
while (<DATA>) { (@_) = split /\s+/; $hash{$_[0],$_[1]} += $_[2] }
print $hash{A,C};
__DATA__
A B 1
B A 1
A B 3
B A 3
A C 7
C A 2

Re: converting list to table

l...@thedarkdesign.free.fr.invalid (Loki Harfagr) — Fri, 06 พ.ย. 2009 16:49:08 UT

Fri, 06 Nov 2009 16:26:40 +0000, Loki Harfagr did cat :
ooops, I didn't see your post in c.l.a. before and why didi you
multipost instead of crosspost!? Ah sorry...

Re: converting list to table

l...@thedarkdesign.free.fr.invalid (Loki Harfagr) — Fri, 06 พ.ย. 2009 16:26:40 UT

Thu, 05 Nov 2009 06:36:19 -0800, jay did cat :
Hope this wil help though not in perl, I guess the port should be
quite straightforward (note the OFS means Output Field Separator and
ORS stands for Output Record Separator)
Given the sample file:
---------------
$ cat MISCFILES/var2varHits
A B 1
B A 1

converting list to table

jayb...@gmail.com (jay) — Thu, 05 พ.ย. 2009 14:36:19 UT

Hi All,
Am new to using newgroup for help, but have exhausted my searching
online for a solution
I have a long list of data of associations between values with a value
to that association as follows..
(var) to (var) = (var) hits
A B 1
B A 1
A B 3
B A 3
A C 7
C A 2
And need to build a table as follows that accumulates the above:

send strings to syslog on different port

ron.egg...@gmail.com (cerr) — Tue, 29 ก.ย. 2009 20:35:20 UT

Hi,
I want to send data to syslog on localhost but on port 1515. How can I
do this?
Thanks,
Ron

Re: Seeking easier code for 1, 2, 5, 10, 20, 50... sequence

l...@thedarkdesign.free.fr.invalid (Loki Harfagr) — Mon, 14 ก.ย. 2009 12:14:46 UT

Mon, 14 Sep 2009 02:21:45 -0500, James Waldby did cat :
If you're nor absolutely looking after something strictly computational
maybe something around this cheat?
m=10^p++; printf "%d %d %d ",m,m*2,m*5;

Seeking easier code for 1, 2, 5, 10, 20, 50... sequence

n...@no.no (James Waldby) — Mon, 14 ก.ย. 2009 07:21:45 UT

perl -e '$m=1; while($m<10001){print " $m"; $m*=(5-$m%9%2)/2;}'
produces:
1 2 5 10 20 50 100 200 500 1000 2000 5000 10000
I've been trying to find some shorter code for this
than the $m*=(5-$m%9%2)/2; expression, but no luck.
Any ideas?

Re: Preventing lines from printing

richm...@optonline.net (R M) — Sat, 05 ก.ย. 2009 01:30:24 UT

Do you chop the input line to remove the '\n'?

Discount Watches - Ulysse Nardin Circus Minute Repeater Mens Pretty Watch PrettyReplica.com for sale all kinds of pretty replica watches! famous watches, luxury watches,discount watches,Christmas gifts,Cheap Watches,Luxury Watches,very nice watche

prett...@gmail.com (PrettyReplica.com) — Thu, 03 ก.ย. 2009 13:20:37 UT

Discount Watches - Ulysse Nardin Circus Minute Repeater Mens Pretty
Watch PrettyReplica.com for sale all kinds of pretty replica watches!
famous watches, luxury watches,discount watches,Christmas gifts,Cheap
Watches,Luxury Watches,very nice watches,Discount Watches,Replica for
sale,Replica Price,Watches Sale,Antique Watches,Watches Women

Re: Preventing lines from printing

gtay...@riverviewtech.net (Grant Taylor) — Mon, 24 ส.ค. 2009 04:27:20 UT

Can we see the actual code for 'lots of processing of file lines with
only one wanted "print"'?
I'm wondering if you aren't emptying a variable and still printing the
empty variable.
Grant. . . .

Preventing lines from printing

d...@dot.dot (Diamond, Mark) — Sun, 23 ส.ค. 2009 02:00:49 UT

Hello,
I am processing multiple text files. There is a lot of pre-processing before
the file-reading commences, then each file gets read (but I don't want to
print any blank line) and then there is a lot of post-processing of each
file. In AWK I had a BEGIN block, no print lines in the middle, and a very

Re: Getting a value

gtay...@riverviewtech.net (Grant Taylor) — Sat, 25 ก.ค. 2009 22:28:43 UT

...
Yes.
Below is a quick hack that I think does what you want to do.
--8<--8<--8<--8<--8<--
use strict;
my $log_dir="hello";
sub function1() {
return "$log_dir";
my $name = function1();
print "$name\n";
-->8-->8-->8-->8-->8--
Grant. . . .

Getting a value

ksakt...@gmail.com (Sakthi) — Fri, 24 ก.ค. 2009 08:38:25 UT

I am getting a string value from a function .A variable is exist by that
string value. Need to print the value using the second variable!
Example:
my $log_dir="hello";
my $name=function1(); // $name has value "log_dir"
I want the output as "hello" using the "name" variable. Is that possible?
TIA

hi

kari...@gmx.de (kikirita) — Mon, 29 มิ.ย. 2009 19:08:30 UT

hallo