alt.comp.lang.perl Google Group

651221 Constantly updated Free COmputer and business portal 41

2010-01-19T21:32:53Z

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

2009-11-13T11:27:13Z

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

2009-11-06T16:49:08Z

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

2009-11-06T16:26:40Z

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

2009-11-05T14:36:19Z

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

2009-09-29T20:35:20Z

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

2009-09-14T12:14:46Z

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

2009-09-14T07:21:45Z

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

2009-09-05T01:30:24Z

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

2009-09-03T13:20:37Z

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

2009-08-24T04:27:20Z

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

2009-08-23T02:00:49Z

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

2009-07-25T22:28:43Z

...
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

2009-07-24T08:38:25Z

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

2009-06-29T19:08:30Z

hallo