05-01-2020
Thanks a lot jgir
This one very quick/fast one liner.
After this awk i used seperate awk to process it further in order to insert new column which has values equal to ($6/$5)*100 or so on. Is it possible to include this as well in your one liner.
Quote:
awk '( $5 ~ /^[1-9]/ ){ newcol=(($6/$5)*100); newpos=length } { printf "%*-s %s\n", newpos, $0, newcol }' file
awk '( $5 ~ /^[1-9]/ ){ newcol=(($8/$5)*100); newpos=length } { printf "%*-s %s\n", newpos, $0, newcol }' file
awk '( $5 ~ /^[1-9]/ ){ newcol=(($8/$7)*100); newpos=length } { printf "%*-s %s\n", newpos, $0, newcol }' file
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi,
I have to manipulate a data file which say reads like this
{$index $value $error_on_value}
aa 4.56 0.7
bb 123.456 0.00987
cc 987654 321
.
.
in easily human readable format of type
aa 4.6(7)
bb 123.456(1)
cc 9.877(3)e+05
value rounded to 4.6 with error of 0.7 on the last... (4 Replies)
Discussion started by: ahan
4 Replies
2. Shell Programming and Scripting
Hi.
I have this data below:-
v1 28 14 1.72414 1.72414 1.72414 1.72414 1.72414
v2 77 7 7.47126 6.89655 6.89655 6.89655 6.89655
v3 156 3 21.2644 21.2644 20.6897 21.2644 20.6897
v4 39 3 1.72414 1.72414 1.72414 1.72414 1.72414
v5 155 1 21.2644 23.5632 24.1379 23.5632 24.1379
v6 62 2 2.87356... (2 Replies)
Discussion started by: ahjiefreak
2 Replies
3. Shell Programming and Scripting
please help me writing a awk script
001_r.pdb 0.0265185
001_r.pdb 0.0437049
001_r.pdb 0.0240642
001_r.pdb 0.0310264
001_r.pdb 0.0200482
001_r.pdb 0.0146746
001_r.pdb 0.0351344
001_r.pdb 0.0347856
001_r.pdb 0.036119
001_r.pdb 1.49
002_r.pdb 0.0281011
002_r.pdb 0.0319908
002_r.pdb... (5 Replies)
Discussion started by: phoenix_nebula
5 Replies
4. Shell Programming and Scripting
Input
217:fngadi4osa:fngadi4osa:M 217:415744:N/A
227:fngadi4osa:fngadi4osa: M 227:51200:N/A
228:fngadi4osa:fngadi4osa: M 228:102400:N/A
65:sapgt04:sapgt04: M 65:104448:N/A
228:fngadi4osa:fngadi4oma: M 228:102400:N/A
Output
217:fngadi4osa:fngadi4osa:M 217:415744:N/A... (3 Replies)
Discussion started by: greycells
3 Replies
5. Shell Programming and Scripting
Hi,
i need a perl script which reads the file, content is given below. and output in new file.
TARGET DRIVE IO1 IO2 IO3 IO4 IO5
------------ --------- --------- --------- --------- ---------
0a.1.8 266 236 ... (3 Replies)
Discussion started by: asak
3 Replies
6. Shell Programming and Scripting
Good morning,
I am still learning the powers of awk and perl. I am in need of a bit of help.
I have a script on one of my launch systems...if that is even the word for it. Basically you can only ssh to a system if you are connected to this system due to firewalls.
So from that system, I... (2 Replies)
Discussion started by: brianjb
2 Replies
7. Shell Programming and Scripting
Hello,
I need help with a perl script that will process a text file and match virtual server name to profile(s). the rest will be ignored.
Virtual server name follows the word "virtual" in the begging of the line.
There could be multiple profiles assigned to one virtual server.
For example, ... (3 Replies)
Discussion started by: besogon
3 Replies
8. Shell Programming and Scripting
hi all,
I want to Represent the data in table format in mail content
sample data should be like this...but i m trying to send this table to mail using unix command...hw do i do????even i echoed the table contents ...doesnt work.... help me
<table style="background-color:lightblue;">... (8 Replies)
Discussion started by: navsan
8 Replies
9. Shell Programming and Scripting
/clusters/cluster-1/exports/storage-views/M1_CRE03_SV:
Name Value
------------------------ ---------------------------------------------------------------------------------------------------
caw-enabled true
controller-tag -
initiators ... (7 Replies)
Discussion started by: greycells
7 Replies
10. UNIX for Beginners Questions & Answers
HI
I have a file that looks like below
abc
{Seq('GATAGC', SingleLetterAlphabet()): 1, Seq('ATAGCG', SingleLetterAlphabet()): 1, Seq('TAGCGG', SingleLetterAlphabet()): 1}
BBC
{Seq('AGGATA', SingleLetterAlphabet()): 1, Seq('GGATAG', SingleLetterAlphabet()): 1, Seq('GATAGC',... (2 Replies)
Discussion started by: biofreek
2 Replies
LEARN ABOUT DEBIAN
audio::mpd::playlist
Audio::MPD::Playlist(3pm) User Contributed Perl Documentation Audio::MPD::Playlist(3pm)
NAME
Audio::MPD::Playlist - class to mess MPD's playlist
VERSION
version 1.120610
SYNOPSIS
$mpd->playlist->shuffle;
# and lots of other methods
DESCRIPTION
Audio::MPD::Playlist is a class meant to access & update MPD's playlist.
Note that you're not supposed to call the constructor yourself, an Audio::MPD::Playlist is automatically created for you during the
creation of an Audio::MPD object - it can then be used with the "playlist()" accessor.
RETRIEVING INFORMATION
as_items
my @items = $pl->as_items;
Return an array of Audio::MPD::Common::Item::Songs, one for each of the songs in the current playlist.
items_changed_since
my @items = $pl->items_changed_since( $plversion );
Return a list with all the songs (as Audio::MPD::Common::Item::Song objects) added to the playlist since playlist $plversion.
ADDING
/ REMOVING SONGS
add
$pl->add( $path [, $path [...] ] );
Add the songs identified by $path (relative to MPD's music directory) to the current playlist. No return value.
delete
$pl->delete( $song [, $song [...] ] );
Remove the specified $song numbers (starting from 0) from the current playlist. No return value.
deleteid
$pl->deleteid( $songid [, $songid [...] ] );
Remove the specified $songids (as assigned by mpd when inserted in playlist) from the current playlist. No return value.
clear
$pl->clear;
Remove all the songs from the current playlist. No return value.
crop
$pl->crop;
Remove all of the songs from the current playlist except the song currently playing.
CHANGING PLAYLIST ORDER
shuffle
$pl->shuffle;
Shuffle the current playlist. No return value.
swap
$pl->swap( $song1, $song2 );
Swap positions of song number $song1 and $song2 in the current playlist. No return value.
swapid
$pl->swapid( $songid1, $songid2 );
Swap the postions of song ID $songid1 with song ID $songid2 in the current playlist. No return value.
move
$pl->move( $song, $newpos );
Move song number $song to the position $newpos. No return value.
moveid
$pl->moveid( $songid, $newpos );
Move song ID $songid to the position $newpos. No return value.
MANAGING PLAYLISTS
load
$pl->load( $playlist );
Load list of songs from specified $playlist file. No return value.
save
$pl->save( $playlist );
Save the current playlist to a file called $playlist in MPD's playlist directory. No return value.
rm
$pl->rm( $playlist );
Delete playlist named $playlist from MPD's playlist directory. No return value.
AUTHOR
Jerome Quelin
COPYRIGHT AND LICENSE
This software is copyright (c) 2007 by Jerome Quelin.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
perl v5.14.2 2012-03-01 Audio::MPD::Playlist(3pm)