Subir archivos a "/"
This commit is contained in:
39
label.ksh
Normal file
39
label.ksh
Normal file
@ -0,0 +1,39 @@
|
|||||||
|
#!/bin/ksh
|
||||||
|
#----------------------
|
||||||
|
# format_label
|
||||||
|
# Automatic labeling of previously unlabeled disks
|
||||||
|
# 2006.08.31 ken.wachtler
|
||||||
|
#----------------------
|
||||||
|
|
||||||
|
# Enter a list of disks, as format's banner would report them
|
||||||
|
Disks="
|
||||||
|
c2t50060163446024C0d0
|
||||||
|
c2t50060163446024C0d1
|
||||||
|
c2t50060163446024C0d2
|
||||||
|
c2t50060163446024C0d3
|
||||||
|
c2t50060163446024C0d4
|
||||||
|
c2t50060163446024C0d5
|
||||||
|
c2t50060163446024C0d6
|
||||||
|
c2t50060163446024C0d7
|
||||||
|
c2t50060163446024C0d8
|
||||||
|
c2t50060163446024C0d9
|
||||||
|
c2t50060163446024C0d10
|
||||||
|
c2t50060163446024C0d11
|
||||||
|
c2t50060163446024C0d12
|
||||||
|
c2t50060163446024C0d13
|
||||||
|
c2t50060163446024C0d14
|
||||||
|
c2t50060163446024C0d15
|
||||||
|
"
|
||||||
|
|
||||||
|
for d in $Disks ; do
|
||||||
|
|
||||||
|
# write label
|
||||||
|
printf "label\nyes\nquit\n" | format -d $d
|
||||||
|
|
||||||
|
# check label
|
||||||
|
printf "\n\n${d}\n\n"
|
||||||
|
prtvtoc /dev/dsk/${d}s0 | egrep '^P |^ '
|
||||||
|
#echo "<cr> to cont: "
|
||||||
|
#read a
|
||||||
|
|
||||||
|
done
|
||||||
80
pcp.ksh
Normal file
80
pcp.ksh
Normal file
@ -0,0 +1,80 @@
|
|||||||
|
#!/usr/bin/ksh
|
||||||
|
#
|
||||||
|
# PCP (PID con Port)
|
||||||
|
# v1.10 08/10/2010 Sam Nelson sam @ unix.ms
|
||||||
|
#
|
||||||
|
# If you have a Solaris 8, 9 or 10 box and you can't
|
||||||
|
# install lsof, try this. It maps PIDS to ports and vice versa.
|
||||||
|
# It also shows you which peers are connected on which port.
|
||||||
|
# Wildcards are accepted for -p and -P options.
|
||||||
|
#
|
||||||
|
# Many thanks Daniel Trinkle trinkle @ cs.purdue.edu
|
||||||
|
# for the help, much appreciated.
|
||||||
|
i=0
|
||||||
|
while getopts :p:P:a opt
|
||||||
|
do
|
||||||
|
case "${opt}" in
|
||||||
|
p ) port="${OPTARG}";i=3;;
|
||||||
|
P ) pid="${OPTARG}";i=3;;
|
||||||
|
a ) all=all;i=2;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
if [ $OPTIND != $i ]
|
||||||
|
then
|
||||||
|
echo >&2 "usage: $0 [-p PORT] [-P PID] [-a] (Wildcards OK) "
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
shift `expr $OPTIND - 1`
|
||||||
|
if [ "$port" ]
|
||||||
|
then
|
||||||
|
# Enter the port number, get the PID
|
||||||
|
#
|
||||||
|
port=${OPTARG}
|
||||||
|
echo "PID\tProcess Name and Port"
|
||||||
|
echo "_________________________________________________________"
|
||||||
|
for proc in `ptree -a | awk '/ptree/ {next} {print $1};'`
|
||||||
|
do
|
||||||
|
result=`pfiles $proc 2> /dev/null| egrep "port: $port$"`
|
||||||
|
if [ ! -z "$result" ]
|
||||||
|
then
|
||||||
|
program=`ps -fo comm= -p $proc`
|
||||||
|
echo "$proc\t$program\t$port\n$result"
|
||||||
|
echo "_________________________________________________________"
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
elif [ "$pid" ]
|
||||||
|
then
|
||||||
|
# Enter the PID, get the port
|
||||||
|
#
|
||||||
|
pid=$OPTARG
|
||||||
|
# Print out the information
|
||||||
|
echo "PID\tProcess Name and Port"
|
||||||
|
echo "_________________________________________________________"
|
||||||
|
for proc in `ptree -a | awk '/ptree/ {next} $1 ~ /^'"$pid"'$/ {print $1};'`
|
||||||
|
do
|
||||||
|
result=`pfiles $proc 2> /dev/null| egrep port:`
|
||||||
|
if [ ! -z "$result" ]
|
||||||
|
then
|
||||||
|
program=`ps -fo comm= -p $proc`
|
||||||
|
echo "$proc\t$program\n$result"
|
||||||
|
echo "_________________________________________________________"
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
elif [ $all ]
|
||||||
|
then
|
||||||
|
# Show all PIDs, Ports and Peers
|
||||||
|
#
|
||||||
|
echo "PID\tProcess Name and Port"
|
||||||
|
echo "_________________________________________________________"
|
||||||
|
for proc in `ptree -a | sort -n | awk '/ptree/ {next} {print $1};'`
|
||||||
|
do
|
||||||
|
out=`pfiles $proc 2>/dev/null| egrep "port:"`
|
||||||
|
if [ ! -z "$out" ]
|
||||||
|
then
|
||||||
|
name=`ps -fo comm= -p $proc`
|
||||||
|
echo "$proc\t$name\n$out"
|
||||||
|
echo "_________________________________________________________"
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
fi
|
||||||
|
exit 0
|
||||||
19
perl_script.pl
Normal file
19
perl_script.pl
Normal file
@ -0,0 +1,19 @@
|
|||||||
|
use 5.010;
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
say "What is your name? ";
|
||||||
|
my $name = <STDIN>;
|
||||||
|
chomp $name;
|
||||||
|
say "Hello $name, how are you?";
|
||||||
|
|
||||||
|
# Leer un fichero de texto
|
||||||
|
my $filename = 'C:\Users\Juan\12051601_merged.tcx';
|
||||||
|
open INFILE,$filename;
|
||||||
|
my $linea;
|
||||||
|
while ( $linea = <INFILE>) {
|
||||||
|
chomp($linea);
|
||||||
|
# Incluir aquí debajo el código para procesar la línea
|
||||||
|
print $linea . "\n";
|
||||||
|
}
|
||||||
|
close INFILE;
|
||||||
15
sonda.pl
Normal file
15
sonda.pl
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
use LWP::UserAgent;
|
||||||
|
|
||||||
|
|
||||||
|
my $ua = LWP::UserAgent->new(
|
||||||
|
ssl_opts => { verify_hostname => 0 }
|
||||||
|
);
|
||||||
|
my $req = HTTP::Request->new(GET => 'https://concentra.bbva.com/sonda_BBVA.log');
|
||||||
|
my $res = $ua->request($req);
|
||||||
|
if ($res->is_success) {
|
||||||
|
print $res->as_string;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
print "Failed: ", $res->status_line, "\n";
|
||||||
|
}
|
||||||
66
ventas.awk
Normal file
66
ventas.awk
Normal file
@ -0,0 +1,66 @@
|
|||||||
|
#!/usr/bin/nawk -f
|
||||||
|
BEGIN {
|
||||||
|
file="/export/oracle/scripts/oper_ult_min.txt"
|
||||||
|
if (ARGC == 2) {hoy=ARGV[1]}
|
||||||
|
else {"date +%Y%m%d" | getline hoy; }
|
||||||
|
while ((getline < file) > 0)
|
||||||
|
{
|
||||||
|
if ($0 ~ "^"hoy) {
|
||||||
|
split($0,cad,";");
|
||||||
|
|
||||||
|
sum_vpm+=cad[2];
|
||||||
|
sum_tventa+=cad[3];
|
||||||
|
sum_tsia+=cad[4];
|
||||||
|
|
||||||
|
hora=substr(cad[1],9,2);
|
||||||
|
min=substr(cad[1],11,2);
|
||||||
|
hhmm=hora":"min;
|
||||||
|
|
||||||
|
a_vpm[hora]+=cad[2];
|
||||||
|
a_tventa[hora]+=cad[3];
|
||||||
|
a_tsia[hora]+=cad[4];
|
||||||
|
a_tsermepa[hora]=a_tventa[hora]-a_tsia[hora];
|
||||||
|
|
||||||
|
a_count[hora]+=1;
|
||||||
|
count+=1;
|
||||||
|
|
||||||
|
if (mayor_vpm[hora]<cad[2]){mayor_vpm[hora]=cad[2]; hora_mayor_vpm[hora]=hhmm}
|
||||||
|
if (mayor_tventa[hora]<cad[3]){mayor_tventa[hora]=cad[3]; hora_mayor_tventa[hora]=hhmm}
|
||||||
|
if (mayor_tsia[hora]<cad[4]){mayor_tsia[hora]=cad[4]; hora_mayor_tsia[hora]=hhmm}
|
||||||
|
if (mayor_tsermepa[hora]<cad[3]-cad[4]){mayor_tsermepa[hora]=cad[3]-cad[4]; hora_mayor_tsermepa[hora]=hhmm}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
close file
|
||||||
|
{
|
||||||
|
print "\n[Resumen Ventas -",hoy"]\n"
|
||||||
|
print (" --------------------------------------------------------------------------------------------------------------------------- ");
|
||||||
|
print (" | V E N T A S | T. C O M P L E T O | T. S I A | T. S E R M E P A |");
|
||||||
|
print (" -----------------------------------------------------------------------------------------------------------------------------------|");
|
||||||
|
print ("| Tramo | Total Med | Max Hora | Med | Peor Hora | Med | Peor Hora | Med | Peor Hora |");
|
||||||
|
print ("| ----- | ------ ---- | ----- ----- | --------- | --------- ----- | --------- | --------- ----- | --------- | --------- ----- |");
|
||||||
|
|
||||||
|
for (i=0;i<=23;i++ ) {
|
||||||
|
if (i<10) { i="0"i }
|
||||||
|
if (a_count[i]<1) {
|
||||||
|
a_count[i]=1;
|
||||||
|
a_vpm[i]=0; a_tventa[i]=0; a_tsia[i]=0;
|
||||||
|
mayor_tventa[i]=0; mayor_vpm[i]=0; mayor_tsia[i]=0; mayor_tsermepa[i]=0;
|
||||||
|
hora_mayor_tventa[i]="--:--"; hora_mayor_vpm[i]="--:--"; hora_mayor_tsermepa[i]="--:--"; hora_mayor_tsia[i]="--:--";
|
||||||
|
}
|
||||||
|
|
||||||
|
printf ("| %2s-%02d | %6s %3d | %5d %5s | %6d ms | %6d ms %5s | %6d ms | %6d ms %5s | %6d ms | %6d ms %5s |\n",
|
||||||
|
i,i+1,a_vpm[i],a_vpm[i]/a_count[i],mayor_vpm[i],hora_mayor_vpm[i],
|
||||||
|
a_tventa[i]/a_count[i],mayor_tventa[i], hora_mayor_tventa[i],
|
||||||
|
a_tsia[i]/a_count[i],mayor_tsia[i], hora_mayor_tsia[i],
|
||||||
|
a_tsermepa[i]/a_count[i],mayor_tsermepa[i], hora_mayor_tsermepa[i])
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
print (" ----------------------------------------------------------------------------------------------------------------------------------- ");
|
||||||
|
printf "\n"
|
||||||
|
printf " Total: %4s ventas procesadas en %d segundos (%d minutos)\n",
|
||||||
|
sum_vpm,sum_tventa/1000,sum_tventa/1000/60
|
||||||
|
printf " Media: %4d ventas por minuto, %d ms aprox. por venta\n\n",
|
||||||
|
sum_vpm/count,sum_tventa/count
|
||||||
|
}
|
||||||
|
}
|
||||||
Reference in New Issue
Block a user