my %hash;
open FH,"<a";
while(<FH>){
chomp;
my @tmp=split;
push @{$hash{$tmp[0]}->{val}}, $_;
$hash{$tmp[0]}->{sum}+=$tmp[3];
}
close FH;
foreach my $key(keys %hash){
my @tmp=@{$hash{$key}->{val}};
for(my $i=0;$i<=$#tmp;$i++){
my @t=split(" ",$tmp[$i]);
print $hash{$key}->{sum};
print $tmp[$i]," ",$t[1]*$t[3]/$hash{$key}->{sum}," ",$t[2]*$t[3]/$hash{$key}->{sum},"\n";
}
}
About a year ago, a friend of mine who worked on the OReilly Snort book took a propsal he and I had worked on for a book on Trusted Computing. Though the editor thought the content was good and worthwhile, he felt that there wasn't enough of a market to justify printing such a work.
How many... (0 Replies)
Tim Bass
Thu, 15 Nov 2007 23:55:07 +0000
*I predict we may experience less*debates*on the use of the term “event cloud”*related to*CEP in the future, now that both IBM and Google* have made announcements about “cloud computing” and “computing cloud”, IBM Turning Data Centers Into ‘Computing... (0 Replies)
Hear how the changing needs of massive scale-out computing is driving a transfomation in technology and learn how HP is supporting this new evolution of the web.
More... (1 Reply)
Hi all,
i have a data array as follows.
array=ertfgj2345
array=456ttygkd
.
.
.
array=errdjt3235
so number or elements in the array can varies depending on how big the data input is.
now i have a variable, and it is $1 (there are $2, $3 and so on, i am only interested in $1).
... (9 Replies)
Thanks Bartus11 for your help in the following code to compare the two files "t1" and "t2".
awk 'NR==FNR{a=1;next}$2 in a{print $2}' t1 t2
First can anyone explain that what is the purpose of assigning a =1?
Second, the current script is printing out the matched columns between the... (4 Replies)
Experts ,
Below is the data:
--- Physical volumes ---
PV Name /dev/dsk/c1t2d0
VG Name /dev/vg00
PV Status available
Allocatable yes
VGDA 2
Cur LV 8
PE Size (Mbytes) 8
Total PE 4350
Free PE 2036
Allocated PE 2314
Stale PE 0
IO Timeout (Seconds) default
--- Physical volumes ---... (5 Replies)
Hi,
I want to compute for linearly-interpolated values for my data using awk, any help is highly appreciated.
How do I apply the linear interpolation formula to my data in awk given the equation below:
x y
15 0
25 0.1633611
35 0.0741623
desired output: linear interpolation at... (4 Replies)
Hi!
I have a pretty complex job - at least for me!
i have two csv-files with meassurement-data:
fileA
...... (2 Replies)
Discussion started by: IMPe
2 Replies
LEARN ABOUT MOJAVE
mac::types5.18
Types(3) User Contributed Perl Documentation Types(3)NAME
Mac::Types - Macintosh Toolbox Types and conversions.
DESCRIPTION
Access to Inside Macintosh is essential for proper use of these functions. Explanations of terms, processes and procedures are provided
there. Any attempt to use these functions without guidance can cause severe errors in your machine, including corruption of data. You have
been warned.
Functions
MacPack [ CONVERTERS ...] CODE, DATA ...
Convert a perl value into a Mac toolbox type. Predefined codes are:
TEXT
Text (an identity operation).
enum
type
keyw
A 4-byte string.
bool
A boolean.
shor
A short integer.
long
A long integer.
sing
A single precision float.
doub
A double precision float.
magn
An unsigned long.
qdrt
A QuickDraw "Rect".
'STR '
A pascal style string.
'STR#'
A string list.
'fss '
A file specification record.
You can pass further code mappings as hash references.
MacUnpack [ CONVERTERS ...] CODE, DATA
Convert a Mac toolbox type into a perl value. Predefined codes are as for "MacPack". You can pass further code mappings as hash
references.
XS Functions
Debugger [ MSG ]
Break into MacsBug. Don't use this if you don't know what MacsBug is.
AUTHOR
Written by Matthias Ulrich Neeracher <neeracher@mac.com>. Currently maintained by Chris Nandor <pudge@pobox.com>.
perl v5.18.2 2017-10-06 Types(3)