field: support /n syntax.
This commit is contained in:
Ole Tange
parent
e1c04807d4
commit
1f068af082
259
fanspeed/fanspeed
Executable file
259
fanspeed/fanspeed
Executable file
|
|
@ -0,0 +1,259 @@
|
|||
#!/bin/bash
|
||||
|
||||
: <<'_EOS'
|
||||
=pod
|
||||
=cut
|
||||
|
||||
=head1 NAME
|
||||
|
||||
fanspeed - set fanspeed using IPMI
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
B<fanspeed> I<degrees>C
|
||||
|
||||
B<fanspeed> I<percent>
|
||||
|
||||
B<fanspeed> bios
|
||||
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
B<fanspeed> will set the fanspeed using IPMI.
|
||||
|
||||
|
||||
=head1 OPTIONS
|
||||
|
||||
=over 9
|
||||
|
||||
=item I<degrees>C
|
||||
|
||||
Run fans at 40% unless temperature goes above I<degrees>. When that
|
||||
happens: Let BIOS control the fan for 30 seconds.
|
||||
|
||||
|
||||
=item I<percent>
|
||||
|
||||
Run fans at I<percent> percent.
|
||||
|
||||
|
||||
=item bios
|
||||
|
||||
Let BIOS control the fans.
|
||||
|
||||
|
||||
=back
|
||||
|
||||
|
||||
=head1 EXAMPLES
|
||||
|
||||
=head2 EXAMPLE:
|
||||
|
||||
Run fans at 40% unless temperature is above 60C. When temperature is
|
||||
above 60C, let BIOS control fans.
|
||||
|
||||
fanspeed 60C
|
||||
|
||||
|
||||
=head2 EXAMPLE: Run fans at 50%
|
||||
|
||||
fanspeed 50
|
||||
|
||||
|
||||
=head2 EXAMPLE: Let BIOS control fans
|
||||
|
||||
fanspeed bios
|
||||
|
||||
|
||||
=head1 REPORTING BUGS
|
||||
|
||||
Report bugs: https://gitlab.com/ole.tange/tangetools/-/issues
|
||||
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Copyright (C) 2020 Ole Tange, http://ole.tange.dk and Free
|
||||
Software Foundation, Inc.
|
||||
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
Copyright (C) 2013 Free Software Foundation, Inc.
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 3 of the License, or
|
||||
at your option any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
=head2 Documentation license I
|
||||
|
||||
Permission is granted to copy, distribute and/or modify this documentation
|
||||
under the terms of the GNU Free Documentation License, Version 1.3 or
|
||||
any later version published by the Free Software Foundation; with no
|
||||
Invariant Sections, with no Front-Cover Texts, and with no Back-Cover
|
||||
Texts. A copy of the license is included in the file fdl.txt.
|
||||
|
||||
=head2 Documentation license II
|
||||
|
||||
You are free:
|
||||
|
||||
=over 9
|
||||
|
||||
=item B<to Share>
|
||||
|
||||
to copy, distribute and transmit the work
|
||||
|
||||
=item B<to Remix>
|
||||
|
||||
to adapt the work
|
||||
|
||||
=back
|
||||
|
||||
Under the following conditions:
|
||||
|
||||
=over 9
|
||||
|
||||
=item B<Attribution>
|
||||
|
||||
You must attribute the work in the manner specified by the author or
|
||||
licensor (but not in any way that suggests that they endorse you or
|
||||
your use of the work).
|
||||
|
||||
=item B<Share Alike>
|
||||
|
||||
If you alter, transform, or build upon this work, you may distribute
|
||||
the resulting work only under the same, similar or a compatible
|
||||
license.
|
||||
|
||||
=back
|
||||
|
||||
With the understanding that:
|
||||
|
||||
=over 9
|
||||
|
||||
=item B<Waiver>
|
||||
|
||||
Any of the above conditions can be waived if you get permission from
|
||||
the copyright holder.
|
||||
|
||||
=item B<Public Domain>
|
||||
|
||||
Where the work or any of its elements is in the public domain under
|
||||
applicable law, that status is in no way affected by the license.
|
||||
|
||||
=item B<Other Rights>
|
||||
|
||||
In no way are any of the following rights affected by the license:
|
||||
|
||||
=over 2
|
||||
|
||||
=item *
|
||||
|
||||
Your fair dealing or fair use rights, or other applicable
|
||||
copyright exceptions and limitations;
|
||||
|
||||
=item *
|
||||
|
||||
The author's moral rights;
|
||||
|
||||
=item *
|
||||
|
||||
Rights other persons may have either in the work itself or in
|
||||
how the work is used, such as publicity or privacy rights.
|
||||
|
||||
=back
|
||||
|
||||
=back
|
||||
|
||||
=over 9
|
||||
|
||||
=item B<Notice>
|
||||
|
||||
For any reuse or distribution, you must make clear to others the
|
||||
license terms of this work.
|
||||
|
||||
=back
|
||||
|
||||
A copy of the full license is included in the file as cc-by-sa.txt.
|
||||
|
||||
=head1 DEPENDENCIES
|
||||
|
||||
B<fanspeed> uses IPMItool, and sensors.
|
||||
|
||||
|
||||
=head1 SEE ALSO
|
||||
|
||||
B<ipmitool>(1), jq(1), and B<sensors>(1).
|
||||
|
||||
=cut
|
||||
_EOS
|
||||
|
||||
setfanspeed() {
|
||||
# 0..100 = manual control X%
|
||||
# bios = BIOS control
|
||||
ipmi() {
|
||||
DRAC_USER=${DRAC_USER:-root}
|
||||
DRAC_PASSWD=${DRAC_PASSWD:-calvin}
|
||||
DRAC_HOST=${DRAC_HOST:-drac}
|
||||
echo -n $(ipmitool -I lanplus -H "$DRAC_HOST" -U "$DRAC_USER" -P "$DRAC_PASSWD" raw "$@")
|
||||
}
|
||||
if [ "$1" == "bios" ] ; then
|
||||
# Let BIOS run the fan
|
||||
ipmi 0x30 0x30 0x01 0x01
|
||||
else
|
||||
# Manual control
|
||||
ipmi 0x30 0x30 0x01 0x00
|
||||
# Set speed 0..100
|
||||
ipmi 0x30 0x30 0x02 0xff "$@"
|
||||
fi
|
||||
}
|
||||
|
||||
fanspeedthreshold() {
|
||||
# fanspeedthreshold deg
|
||||
# Turn on BIOS control when temperature reaches deg degrees
|
||||
sensors -j |
|
||||
jq -r '[.[]["temp1"]["temp1_input"]] |
|
||||
if max < '$1' then 40 else "bios" end';
|
||||
}
|
||||
|
||||
runthreshold() {
|
||||
# runthreshold degrees
|
||||
while true; do
|
||||
printf " "$(sensors -j |
|
||||
jq '[.[]["temp1"]["temp1_input"]] | max')
|
||||
speed=$(fanspeedthreshold $@)
|
||||
setfanspeed $speed
|
||||
if [ $speed == "bios" ] ; then
|
||||
# Do not change away from bios in less than 30 secs
|
||||
sleep 30
|
||||
fi
|
||||
sleep 1
|
||||
done
|
||||
}
|
||||
|
||||
|
||||
_fanspeed() {
|
||||
# BIOS = 60 C => 40
|
||||
# 0 C => 10, 55 C => 10, 65 C => 100
|
||||
sensors -j |
|
||||
jq '[.[]["temp1"]["temp1_input"]] |
|
||||
(max-55)*(100/(65-55)) |
|
||||
if . < 50 then 50 else if . > 100 then 100 else .|floor end end';
|
||||
# if . < 25 then 25 else if . > 100 then 100 else .|floor end end';
|
||||
}
|
||||
|
||||
degrees=$(echo "$@" | perl -ne '/(\d+)C/i and print $1')
|
||||
|
||||
if [ -z "$degrees" ] ; then
|
||||
setfanspeed "$@"
|
||||
else
|
||||
runthreshold "$degrees"
|
||||
fi
|
||||
12
field/field
12
field/field
|
|
@ -29,6 +29,10 @@ Select field 2,3,4,5:
|
|||
|
||||
field 2-5 file
|
||||
|
||||
Select field 2,1,3,5,7,9,13:
|
||||
|
||||
field 2,1-13/2 file
|
||||
|
||||
Select field 2..end:
|
||||
|
||||
field 2- file
|
||||
|
|
@ -78,8 +82,16 @@ sub range_to_fields {
|
|||
my @ranges = split(/,/, shift);
|
||||
my @fields;
|
||||
for (@ranges) {
|
||||
# 2
|
||||
/^(\d+)$/ and push (@fields,($1-1));
|
||||
# 2-11
|
||||
/^(\d+)-(\d+)$/ and push (@fields,($1-1) .. ($2-1));
|
||||
# 3-19/2
|
||||
/^(\d+)-(\d+)\/(\d+)$/ and do {
|
||||
for(my $t = $1; $t <= $2; $t += $3) {
|
||||
push (@fields,($t-1));
|
||||
}
|
||||
};
|
||||
/^(\d+)-$/ and do {
|
||||
push (@fields,($1-1)." .. \$#F");
|
||||
$Global::must_eval = 1;
|
||||
|
|
|
|||
|
|
@ -5,14 +5,15 @@
|
|||
|
||||
=head1 NAME
|
||||
|
||||
find-first-fail - fine function for finding first failing file fragment
|
||||
find-first-fail - fine function for finding first failing file
|
||||
fragment (or numeric argument)
|
||||
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
B<find-first-fail> [-2] [-q] [-s I<start>] [-v] I<command>
|
||||
B<find-first-fail> [-2] [-q] [-s I<start>] [-v] [-V] I<command>
|
||||
|
||||
B<find-first-fail> -f I<inputfile> [-s I<start>] [-q] [-v] I<command>
|
||||
B<find-first-fail> -f I<inputfile> [-s I<start>] [-q] [-v] [-V] I<command>
|
||||
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
|
@ -144,6 +145,11 @@ To identify the minimal CSV file that causes myparser to fail:
|
|||
find-first-fail -f example.csv -s1 myparser
|
||||
|
||||
|
||||
=head1 REPORTING BUGS
|
||||
|
||||
Report bugs: https://gitlab.com/ole.tange/tangetools/-/issues
|
||||
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Copyright (C) 2020 Ole Tange,
|
||||
|
|
@ -185,7 +191,7 @@ find-first-fail() {
|
|||
shift
|
||||
shift
|
||||
local middle=$(( ( $low + $high ) / 2 ))
|
||||
if _run $low $middle "$@" ; then
|
||||
if _run $low $middle $high "$@" ; then
|
||||
low=$middle
|
||||
else
|
||||
high=$middle
|
||||
|
|
@ -211,13 +217,15 @@ find-first-fail() {
|
|||
}
|
||||
local a="$1"
|
||||
local b="$2"
|
||||
local c="$3"
|
||||
shift
|
||||
shift
|
||||
shift
|
||||
local cmd=("$@")
|
||||
if $opt2 ; then
|
||||
$verbose && echo "$a<x<$b: ${cmd[@]}" "$a" "$b" >&2
|
||||
else
|
||||
$verbose && echo "$a<x<$b: ${cmd[@]}" "$b" >&2
|
||||
$verbose && echo "$a<x<$c: ${cmd[@]}" "$b" >&2
|
||||
fi
|
||||
eval "$not" _inner_run "$quiet"
|
||||
}
|
||||
|
|
@ -225,7 +233,7 @@ find-first-fail() {
|
|||
_find_in_arg() {
|
||||
# If function(1) = false: run 'not function()' instead
|
||||
local not
|
||||
if _run "$start" "$start" "$@" ; then
|
||||
if _run "$start" "$start" "?" "$@" ; then
|
||||
not=''
|
||||
else
|
||||
not='!'
|
||||
|
|
@ -236,7 +244,7 @@ find-first-fail() {
|
|||
# high = low * 2 (function($high) == false)
|
||||
local high=$(( $start*2 ))
|
||||
local low=$start
|
||||
while _run $start $high "$@" ; do
|
||||
while _run $low $high "?" "$@" ; do
|
||||
low=$high
|
||||
high=$(( $high*2 ))
|
||||
if [ $high -gt 4611686018427387900 ] ; then
|
||||
|
|
@ -356,6 +364,18 @@ find-first-fail() {
|
|||
unset low high start quiet
|
||||
}
|
||||
|
||||
version() {
|
||||
cat <<EOF
|
||||
find-first-fail 20201222
|
||||
Copyright (C) 2020 Ole Tange, http://ole.tange.dk
|
||||
License GPLv3+: GNU GPL version 3 or later <https://gnu.org/licenses/gpl.html>
|
||||
This is free software: you are free to change and redistribute it.
|
||||
find-first-fail comes with no warranty.
|
||||
|
||||
Web site: https://gitlab.com/ole.tange/tangetools/-/tree/master/find-first-fail
|
||||
EOF
|
||||
}
|
||||
|
||||
local opt2=false
|
||||
local optf=false
|
||||
local inputfile
|
||||
|
|
@ -365,13 +385,14 @@ find-first-fail() {
|
|||
unset OPTIND
|
||||
|
||||
# Parse and remove options
|
||||
while getopts "2f:qs:v" options; do
|
||||
while getopts "2f:qs:vV" options; do
|
||||
case "${options}" in
|
||||
(2) opt2=true;;
|
||||
(f) optf=true; inputfile="$OPTARG";;
|
||||
(q) quiet=">/dev/null 2>/dev/null";;
|
||||
(s) start="$OPTARG";;
|
||||
(v) verbose=true;;
|
||||
(V) version; exit 0;;
|
||||
(-) break;;
|
||||
esac
|
||||
done
|
||||
|
|
@ -389,6 +410,27 @@ find-first-fail() {
|
|||
fi
|
||||
_find_in_arg "$@";
|
||||
fi
|
||||
# TODO find-optimal:
|
||||
# instead of looking at exit value, look at last line
|
||||
# start=--start || 1
|
||||
# end=--end
|
||||
# vstart = test(start)
|
||||
# if end:
|
||||
# vmiddle = test( (start+end)/2)
|
||||
# if vstart < vmiddle:
|
||||
# Search hill(start,end)
|
||||
# else
|
||||
# Search valley(start,t)
|
||||
# else
|
||||
# min = vstart
|
||||
# max = vstart
|
||||
# t = start*2
|
||||
# while t < big:
|
||||
# v = test(t)
|
||||
# if v < max and vstart < max: Search hill(start,t)
|
||||
# if min < v and min < vstart: Search valley(start,t)
|
||||
# t = t*2
|
||||
# fi
|
||||
}
|
||||
|
||||
if [ -z "$*" ] ; then
|
||||
|
|
|
|||
|
|
@ -70,7 +70,8 @@ B<ps>
|
|||
|
||||
=cut
|
||||
|
||||
for pid in "$@"; do
|
||||
# $@ instead of "$@" to ignore spaces
|
||||
for pid in $@; do
|
||||
cat /proc/$pid/cmdline | xargs -0
|
||||
done
|
||||
|
||||
|
|
|
|||
|
|
@ -29,11 +29,12 @@ Examples:
|
|||
seq 1 100 | shuf | plotpipe
|
||||
paste <(seq 1 100) <(seq 1 100) <(seq 1 100 | shuf) | plotpipe
|
||||
(echo "#Title"; echo "#Subtitle";
|
||||
echo "Column1 Column2 Column3";
|
||||
printf "Column1\tColumn2\tColumn3";
|
||||
paste <(seq 1 100) <(seq 1 100) <(seq 1 100 | shuf) ) | plotpipe
|
||||
|
||||
Copyright (C) 2020 Ole Tange, http://ole.tange.dk and Free Software
|
||||
Foundation, Inc.
|
||||
|
||||
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
|
||||
This is free software: you are free to change and redistribute it.
|
||||
GNU plotpipe comes with no warranty.
|
||||
|
|
|
|||
|
|
@ -123,6 +123,21 @@ input.csv:
|
|||
cat input.csv | plotpipe
|
||||
|
||||
|
||||
=head1 LIMITS
|
||||
|
||||
B<plotpipe> is limited by Gnuplot.
|
||||
|
||||
13x113425 = 28 MB
|
||||
43x13203 = 10 MB
|
||||
43x24068 = 5.8 MB
|
||||
10x315636
|
||||
Gnuplot will complain:
|
||||
|
||||
line -1: warning: Cannot find or open file "/tmp/plotXXXXX"
|
||||
|
||||
if the input is too big. The plot will then be incomplete.
|
||||
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Copyright (C) 2019-2020 Ole Tange,
|
||||
|
|
@ -303,7 +318,7 @@ sub find_sep(@) {
|
|||
Getopt::Long::Configure("bundling","require_order");
|
||||
my $retval = GetOptions(options_hash());
|
||||
$Global::progname = "plotpipe";
|
||||
$Global::version = 20201125;
|
||||
$Global::version = 20201222;
|
||||
if($opt::version) { version(); exit 0; }
|
||||
if($opt::help) { help(); exit 0; }
|
||||
if($opt::null) { $/ = "\0"; }
|
||||
|
|
@ -356,7 +371,7 @@ if($ncols >= 2 and not $opt::nox) {
|
|||
}
|
||||
} else {
|
||||
# All data = y-axis, invent x-axis
|
||||
my $x = 1;
|
||||
my $x = 0;
|
||||
for(@csv) {
|
||||
chomp;
|
||||
print $filehandle ((join "\001", $x++, split /$opt::colsep/, $_),"\n");
|
||||
|
|
@ -397,13 +412,7 @@ set datafile separator "\001";
|
|||
plot @plotscript
|
||||
_EOS
|
||||
|
||||
if(fork) {
|
||||
open GNUPLOT,"|-", "gnuplot -p -e ".Q($plotscript) or die;
|
||||
#print "gnuplot -p -e ".($plotscript);
|
||||
close GNUPLOT;
|
||||
unlink $filename;
|
||||
} else {
|
||||
# If script dies unexpectedly, remove the file after 5 sec
|
||||
sleep(5);
|
||||
unlink $filename;
|
||||
}
|
||||
open GNUPLOT,"|-", "gnuplot -p -e ".Q($plotscript) or die;
|
||||
close GNUPLOT;
|
||||
# print "gnuplot -p -e ".($plotscript);
|
||||
unlink $filename;
|
||||
|
|
|
|||
Loading…
Reference in a new issue