As far as my posts are concerned (the above is not mine, it's from danmero's post I think), it's just an attempt to make a boring code look nicer (like Apollinaire's poetry).
how can I find cpu usage memory usage swap usage and
I want to know CPU usage above X% and contiue Y times and memory usage above X % and contiue Y times
my final destination is monitor process
logical volume usage above X % and number of Logical voluage above
can I not to... (3 Replies)
Hi everybody, i know this question is common on the forum and i've searched for my answer but haven't quite found it.
I'm trying to extract some values from a number of log files which look like this:
Peak Power Consumption: 0.20777 Watts
Observed Average Power: 0.1414794247 Watts
The... (9 Replies)
Hi All,
I have a question about the usage of FS in awk and i appreciate if you can help me sort out what i'm doing wrong.
I have a file with info ; separated and i just want to print the o/p of all fields ($1 -> $8) to the screen. As you can see it is very simple but i'm facing an error.
... (5 Replies)
I must design a UNIX script to monitor files whose size is over a threshold of 5 MB in a specific UNIX directory
I meet a problem during the for loop in my script. Some file names contain spaces.
ls -lrt | awk '$5>=5000000 && length($8)==5 {gsub(/ /,"_",$9); print};'
-rw-r--r-- 1 was61 ... (2 Replies)
Hello Friends,
I would appreciate so much if you could explain how the underscores works at the following code? Sorry if it sounds a bit novice question.
awk -F',' 'NR==FNR{_=1;next}!_{print}' exclude infile
KR,
Eagle (6 Replies)
Hello Everyone,
I am new to awk and trying my hand with the diff codes and came across the below code today. It would be great if any of the Guru's help me to understand.
awk '{filename = "sample_file" int((NR-1)/34) ".DAT"; print >> filename}' sample_file.DAT
34 is the no of lines each... (7 Replies)
Hi All,
Would appreciate your help as to why the following code not showing the correct output. the issue is on the last else cause. I am trying to report on disk space based on percentage usage. for some reason, it's showing output as OK even thou disk space is 90% !!!! any ideas why? thanks!!... (2 Replies)
Hi
I have a file like this
user="joe"
phone="4280919"
duration=128
login=12/02/2016
ip-address=10.230.120.35
user="mary"
phone="6352728"
duration=23
login=16/02/2016
ip-address=10.123.231.54
I have to convert these to as follows (csv format) (Ignore Login field)... (6 Replies)
I am trying to split a tab-delimeted file using awk after the second _ in bold. The awk below is close but splits on the first _, and I am not sure how to use the second _. Thank you :).
file
chr1 92145889 92149424 NM_001195684_exon_0_10_chr1_92145900_r 0 -
chr1 92161218 ... (4 Replies)
Discussion started by: cmccabe
4 Replies
LEARN ABOUT MOJAVE
symbol
Symbol(3pm) Perl Programmers Reference Guide Symbol(3pm)NAME
Symbol - manipulate Perl symbols and their names
SYNOPSIS
use Symbol;
$sym = gensym;
open($sym, "filename");
$_ = <$sym>;
# etc.
ungensym $sym; # no effect
# replace *FOO{IO} handle but not $FOO, %FOO, etc.
*FOO = geniosym;
print qualify("x"), "
"; # "main::x"
print qualify("x", "FOO"), "
"; # "FOO::x"
print qualify("BAR::x"), "
"; # "BAR::x"
print qualify("BAR::x", "FOO"), "
"; # "BAR::x"
print qualify("STDOUT", "FOO"), "
"; # "main::STDOUT" (global)
print qualify(*x), "
"; # returns *x
print qualify(*x, "FOO"), "
"; # returns *x
use strict refs;
print { qualify_to_ref $fh } "foo!
";
$ref = qualify_to_ref $name, $pkg;
use Symbol qw(delete_package);
delete_package('Foo::Bar');
print "deleted
" unless exists $Foo::{'Bar::'};
DESCRIPTION
"Symbol::gensym" creates an anonymous glob and returns a reference to it. Such a glob reference can be used as a file or directory handle.
For backward compatibility with older implementations that didn't support anonymous globs, "Symbol::ungensym" is also provided. But it
doesn't do anything.
"Symbol::geniosym" creates an anonymous IO handle. This can be assigned into an existing glob without affecting the non-IO portions of the
glob.
"Symbol::qualify" turns unqualified symbol names into qualified variable names (e.g. "myvar" -> "MyPackage::myvar"). If it is given a
second parameter, "qualify" uses it as the default package; otherwise, it uses the package of its caller. Regardless, global variable
names (e.g. "STDOUT", "ENV", "SIG") are always qualified with "main::".
Qualification applies only to symbol names (strings). References are left unchanged under the assumption that they are glob references,
which are qualified by their nature.
"Symbol::qualify_to_ref" is just like "Symbol::qualify" except that it returns a glob ref rather than a symbol name, so you can use the
result even if "use strict 'refs'" is in effect.
"Symbol::delete_package" wipes out a whole package namespace. Note this routine is not exported by default--you may want to import it
explicitly.
BUGS
"Symbol::delete_package" is a bit too powerful. It undefines every symbol that lives in the specified package. Since perl, for performance
reasons, does not perform a symbol table lookup each time a function is called or a global variable is accessed, some code that has already
been loaded and that makes use of symbols in package "Foo" may stop working after you delete "Foo", even if you reload the "Foo" module
afterwards.
perl v5.18.2 2013-11-04 Symbol(3pm)