field: support /n syntax.

This commit is contained in:
Ole Tange 2020-12-28 19:58:30 +01:00
parent e1c04807d4
commit 1f068af082
6 changed files with 346 additions and 22 deletions

259
fanspeed/fanspeed Executable file
View 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

View file

@ -29,6 +29,10 @@ Select field 2,3,4,5:
field 2-5 file field 2-5 file
Select field 2,1,3,5,7,9,13:
field 2,1-13/2 file
Select field 2..end: Select field 2..end:
field 2- file field 2- file
@ -78,8 +82,16 @@ sub range_to_fields {
my @ranges = split(/,/, shift); my @ranges = split(/,/, shift);
my @fields; my @fields;
for (@ranges) { for (@ranges) {
# 2
/^(\d+)$/ and push (@fields,($1-1)); /^(\d+)$/ and push (@fields,($1-1));
# 2-11
/^(\d+)-(\d+)$/ and push (@fields,($1-1) .. ($2-1)); /^(\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 { /^(\d+)-$/ and do {
push (@fields,($1-1)." .. \$#F"); push (@fields,($1-1)." .. \$#F");
$Global::must_eval = 1; $Global::must_eval = 1;

View file

@ -5,14 +5,15 @@
=head1 NAME =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 =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 =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 find-first-fail -f example.csv -s1 myparser
=head1 REPORTING BUGS
Report bugs: https://gitlab.com/ole.tange/tangetools/-/issues
=head1 AUTHOR =head1 AUTHOR
Copyright (C) 2020 Ole Tange, Copyright (C) 2020 Ole Tange,
@ -185,7 +191,7 @@ find-first-fail() {
shift shift
shift shift
local middle=$(( ( $low + $high ) / 2 )) local middle=$(( ( $low + $high ) / 2 ))
if _run $low $middle "$@" ; then if _run $low $middle $high "$@" ; then
low=$middle low=$middle
else else
high=$middle high=$middle
@ -211,13 +217,15 @@ find-first-fail() {
} }
local a="$1" local a="$1"
local b="$2" local b="$2"
local c="$3"
shift
shift shift
shift shift
local cmd=("$@") local cmd=("$@")
if $opt2 ; then if $opt2 ; then
$verbose && echo "$a<x<$b: ${cmd[@]}" "$a" "$b" >&2 $verbose && echo "$a<x<$b: ${cmd[@]}" "$a" "$b" >&2
else else
$verbose && echo "$a<x<$b: ${cmd[@]}" "$b" >&2 $verbose && echo "$a<x<$c: ${cmd[@]}" "$b" >&2
fi fi
eval "$not" _inner_run "$quiet" eval "$not" _inner_run "$quiet"
} }
@ -225,7 +233,7 @@ find-first-fail() {
_find_in_arg() { _find_in_arg() {
# If function(1) = false: run 'not function()' instead # If function(1) = false: run 'not function()' instead
local not local not
if _run "$start" "$start" "$@" ; then if _run "$start" "$start" "?" "$@" ; then
not='' not=''
else else
not='!' not='!'
@ -236,7 +244,7 @@ find-first-fail() {
# high = low * 2 (function($high) == false) # high = low * 2 (function($high) == false)
local high=$(( $start*2 )) local high=$(( $start*2 ))
local low=$start local low=$start
while _run $start $high "$@" ; do while _run $low $high "?" "$@" ; do
low=$high low=$high
high=$(( $high*2 )) high=$(( $high*2 ))
if [ $high -gt 4611686018427387900 ] ; then if [ $high -gt 4611686018427387900 ] ; then
@ -356,6 +364,18 @@ find-first-fail() {
unset low high start quiet 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 opt2=false
local optf=false local optf=false
local inputfile local inputfile
@ -365,13 +385,14 @@ find-first-fail() {
unset OPTIND unset OPTIND
# Parse and remove options # Parse and remove options
while getopts "2f:qs:v" options; do while getopts "2f:qs:vV" options; do
case "${options}" in case "${options}" in
(2) opt2=true;; (2) opt2=true;;
(f) optf=true; inputfile="$OPTARG";; (f) optf=true; inputfile="$OPTARG";;
(q) quiet=">/dev/null 2>/dev/null";; (q) quiet=">/dev/null 2>/dev/null";;
(s) start="$OPTARG";; (s) start="$OPTARG";;
(v) verbose=true;; (v) verbose=true;;
(V) version; exit 0;;
(-) break;; (-) break;;
esac esac
done done
@ -389,6 +410,27 @@ find-first-fail() {
fi fi
_find_in_arg "$@"; _find_in_arg "$@";
fi 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 if [ -z "$*" ] ; then

View file

@ -70,7 +70,8 @@ B<ps>
=cut =cut
for pid in "$@"; do # $@ instead of "$@" to ignore spaces
for pid in $@; do
cat /proc/$pid/cmdline | xargs -0 cat /proc/$pid/cmdline | xargs -0
done done

View file

@ -29,11 +29,12 @@ Examples:
seq 1 100 | shuf | plotpipe seq 1 100 | shuf | plotpipe
paste <(seq 1 100) <(seq 1 100) <(seq 1 100 | shuf) | plotpipe paste <(seq 1 100) <(seq 1 100) <(seq 1 100 | shuf) | plotpipe
(echo "#Title"; echo "#Subtitle"; (echo "#Title"; echo "#Subtitle";
echo "Column1 Column2 Column3"; printf "Column1\tColumn2\tColumn3";
paste <(seq 1 100) <(seq 1 100) <(seq 1 100 | shuf) ) | plotpipe paste <(seq 1 100) <(seq 1 100) <(seq 1 100 | shuf) ) | plotpipe
Copyright (C) 2020 Ole Tange, http://ole.tange.dk and Free Software Copyright (C) 2020 Ole Tange, http://ole.tange.dk and Free Software
Foundation, Inc. Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html> 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. This is free software: you are free to change and redistribute it.
GNU plotpipe comes with no warranty. GNU plotpipe comes with no warranty.

View file

@ -123,6 +123,21 @@ input.csv:
cat input.csv | plotpipe 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 =head1 AUTHOR
Copyright (C) 2019-2020 Ole Tange, Copyright (C) 2019-2020 Ole Tange,
@ -303,7 +318,7 @@ sub find_sep(@) {
Getopt::Long::Configure("bundling","require_order"); Getopt::Long::Configure("bundling","require_order");
my $retval = GetOptions(options_hash()); my $retval = GetOptions(options_hash());
$Global::progname = "plotpipe"; $Global::progname = "plotpipe";
$Global::version = 20201125; $Global::version = 20201222;
if($opt::version) { version(); exit 0; } if($opt::version) { version(); exit 0; }
if($opt::help) { help(); exit 0; } if($opt::help) { help(); exit 0; }
if($opt::null) { $/ = "\0"; } if($opt::null) { $/ = "\0"; }
@ -356,7 +371,7 @@ if($ncols >= 2 and not $opt::nox) {
} }
} else { } else {
# All data = y-axis, invent x-axis # All data = y-axis, invent x-axis
my $x = 1; my $x = 0;
for(@csv) { for(@csv) {
chomp; chomp;
print $filehandle ((join "\001", $x++, split /$opt::colsep/, $_),"\n"); print $filehandle ((join "\001", $x++, split /$opt::colsep/, $_),"\n");
@ -397,13 +412,7 @@ set datafile separator "\001";
plot @plotscript plot @plotscript
_EOS _EOS
if(fork) { open GNUPLOT,"|-", "gnuplot -p -e ".Q($plotscript) or die;
open GNUPLOT,"|-", "gnuplot -p -e ".Q($plotscript) or die; close GNUPLOT;
#print "gnuplot -p -e ".($plotscript); # print "gnuplot -p -e ".($plotscript);
close GNUPLOT; unlink $filename;
unlink $filename;
} else {
# If script dies unexpectedly, remove the file after 5 sec
sleep(5);
unlink $filename;
}