Sponsored Content
Full Discussion: PERL Text Munging
Top Forums Shell Programming and Scripting PERL Text Munging Post 302269196 by radoulov on Wednesday 17th of December 2008 04:52:10 AM
Old 12-17-2008
Code:
$ cat file
host1,neighbor1
host3,neighbor4
host2,neighbor1
host2,neighbor3
host1,neighbor3
host3,neighbor1
host1,neighbor2
host3,neighbor2
$ perl -F, -ane'
  chomp $F[1];$_{$F[0]}.=",".$F[1];
  print map "$_$_{$_}\n", sort keys %_ if eof
  ' file
host1,neighbor1,neighbor3,neighbor2
host2,neighbor1,neighbor3
host3,neighbor4,neighbor1,neighbor2

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl text file

I've got a csv file called "passlist.txt" which looks like: firstname1,lastname1,checkin1,numberofbags1,destination1 firstname2,lastname2,checkin2,numberofbags2,destination2 firstname3,lastname3,checkin3,numberofbags3,destination3 " " " " ... (5 Replies)
Discussion started by: Sn33R
5 Replies

2. Shell Programming and Scripting

Text formatting in Perl.

Hiho, I've got a variable $sth = `du -sh /home/$whoami`; where $whoami is actually logged user. I want to have only the size of this directory eg. 2,7G. I know its lame, but anyway.. how to do it? (2 Replies)
Discussion started by: fenox
2 Replies

3. UNIX for Advanced & Expert Users

Need help take out few text in perl

I have perl program and I know that while sending an e-mail the following code returns "Remote (/opt/seasoft/db/nervecenter.nms00tst1):" in an email, I need to take out the entire "opt/seasoft/db/nervecenter" and leave with "ms00tst1" only. How do I do it: So the output would be "Remote... (3 Replies)
Discussion started by: amir07
3 Replies

4. Shell Programming and Scripting

perl script - data munging

Hi guys I'm trying to print the keys and values of data by using hashes and so on I was able to retrieve the key but not values. I'm getting result like this wrong -output chr1, 1 HASH(0x800d80)-> {arrayid} chr2, 1 HASH(0x800c9c)-> {arrayid} chr3, 1 HASH(0x80177c)-> {arrayid} chr4, 1 ... (2 Replies)
Discussion started by: nogu0001
2 Replies

5. Shell Programming and Scripting

Perl - Inserting text

Hey, I have 10 lines of text ... And I would like to Insert prefix for each line with static text. perl -pi -e 's/()/$1 TEST$./' data.txt Each line will have different static prefix, Code above works perfectly for 1st line ... I'm just not sure how I can run same command for 2nd line 3rd... (4 Replies)
Discussion started by: NDxiak
4 Replies

6. Shell Programming and Scripting

Perl Text manipulation

Hello All, I have been working on a great script to remotely gather server info and store it in a .txt that can be imported to .xls I have been reading the hostnames that are in the /.shh/known_hosts file so I don't have to mess with passing a password - via ssh (not easy to do , by the... (1 Reply)
Discussion started by: dfezz1
1 Replies

7. Shell Programming and Scripting

Perl Text Manipulation

I'm in need of help for a project that I'm working on. I believe Perl would be the best way of handling the string manipulation, however, I've barely used perl, and I'm used to BASH scripting. Another note is, this project is in a Windows environment, so I can use Perl, but I do not have shell... (1 Reply)
Discussion started by: drewrockshard
1 Replies

8. Shell Programming and Scripting

Text allignment using PERL

Hi Friends, For daily reports i make perl script like below. @dirlist = `cat out.txt |cut -d "|" -f1 >create.txt`; @dirlist1 = `cat out.txt|wc -l *e* >create2.txt`; open FILE, ">OUTPUT.txt"; @command = `cat out.txt |cut -d "|" -f1`; print FILE map{$_-2 ."\n"}@command; @dirlist2 =... (1 Reply)
Discussion started by: adaleru
1 Replies

9. Shell Programming and Scripting

TEXT to CSV using Perl

Hi Folks Need some help with this and my Perl isnt the hottest I also have text::csv installed on my perl install The large text with a few million entries is in a format below example text file Fig Leafs Cake No: 0000001 Author: King s. Record No: 995-34343-232-232... (5 Replies)
Discussion started by: messiah1
5 Replies

10. Shell Programming and Scripting

Perl text from web

perl -MLWP::Simple -le '$s=shift;$c=get("http://genetics.emory.edu/egl/tests/view.php?testid=4125/$s/");$c=~/meta content=(.*?)name=\"Genes\"/msg; print length($1),"\t$1"' "Test Description" >output.txt I am having trouble with this code: Can it be modified for the desired output? I attached... (3 Replies)
Discussion started by: cmccabe
3 Replies
ruptime(1)						      General Commands Manual							ruptime(1)

NAME
ruptime - Displays the status of each host on a network SYNOPSIS
ruptime [-ar] [-l | -t | -u] ruptime [-ar] [-l | -t | -u] [machinename] The ruptime command displays the status of each host on a local network that is running the rwhod daemon. If machinename is specified, only the status of that machine is displayed. OPTIONS
Includes all users. Without this option, users whose sessions are idle an hour or more are not included. Sorts the list by the load aver- age over 5-, 10-, and 15-minute intervals prior to a server's transmission. The load averages are multiplied by 10 to represent the value in decimal format. Reverses the sort order. Sorts the list by the length of uptime. Sorts the list by the number of users. DESCRIPTION
The status lines are sorted by hostname unless the -l, -t, or -u option is indicated. The status information is provided in packets broad- cast once every 3 minutes by each network host running rwhod. Any activity (such as the power to a host being turned on or off) that takes place between broadcasts is not reflected until the next broadcast. Hosts for which no status information is received for 11 minutes are reported as down. EXAMPLES
To get a status report on the hosts on the local network, enter: $ ruptime Information similar to the following is displayed: host1 up 5:15, 4 users, load 0.09, 0.04, 0.04 host2 up 7:45, 3 users, load 0.08, 0.07, 0.04 host3 up 2:28, 0 users, load 0.01, 0.02, 0.03 host4 up 3+01:44, 1 user, load 0.01, 0.02, 0.03 host7 up 7:43, 1 user, load 0.06, 0.12, 0.11 (Output may be formatted differently on your system.) To get a status report sorted by load average, enter: $ ruptime -l Information similar to the following is displayed: host2 up 7:45, 3 users, load 0.08, 0.07, 0.04 host1 up 5:18, 4 users, load 0.07, 0.07, 0.04 host7 up 7:43, 1 user, load 0.06, 0.12, 0.11 host3 up 2:28, 0 users, load 0.01, 0.02, 0.03 host4 up 3+01:44, 1 user, load 0.01, 0.02, 0.03 (Output may be formatted differently on your system.) FILES
Indicates data files received from remote rwhod daemons. SEE ALSO
Commands: rwho(1), rwhod(8) ruptime(1)
All times are GMT -4. The time now is 06:44 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy