termname() {
echo -en "\e]1; $1 \a"
}
#!/usr/bin/expect -f
set timeout -1
set machine [lindex $argv 0]
set port [lindex $argv 1]
set command "show bridge address-table ethernet 1/g$port\n"
#Connect to the server
spawn telnet $machine
expect "User:"
exp_send "admin\r"
expect "Password:"
exp_send "myXEN\r"
expect "?*>"
exp_send "enable\r"
expect "?*#"
exp_send $command
expect "?*#"
set temp_mac [ lindex [ lindex [ split $expect_out(0,string) "\n"] 6] 1]
exp_send "exit\r"
exp_send "quit\r"
puts "\n"
# Creating mac address in DHCP format (with ':')
set mac [ string range $temp_mac 0 1 ]
append mac "."
append mac [ string range $temp_mac 2 6 ]
append mac "."
append mac [ string range $temp_mac 7 11 ]
append mac "."
append mac [ string range $temp_mac 12 13 ]
puts "$machine/$port: [ string map {. :} $mac]"
exit
Oh one more thing. To make a list of all following it's good to run the script in loop and the following one should be good base to start with.for ((i=1;i<48;i++)) do mac-dell.expect esw44-1 $i| grep "esw44-1/$i"; done
s/\,/,[ctrl-V][Enter]/gwhere [ctrl-V][Enter] - means type Ctrl+V and next Enter (you should see s/\,/,^M/g)
tail bo-access_log.2009-06-22 | \
awk '{print "size:\t"$(NF-1) "\t time:\t" $NF}'
In the example log file the time is the last and size of file next to last field. Of course you can type it in one line. But Then you have to remove '\' character from end of first line.
Second advice is related to SVN. I found reverting last submitted changes quite not clear there. Revert works only with no committed changes, so I used the command similar to below one.
svn merge -r HEAD:{2009-06-21} .
The example reverts everything what has been submitted between 21st June 2009 and 'now'. However, today I found that PREV 'variable', so the following command should do I had wanted to achieve. Interesting how could I missed it?
svn merge -r HEAD:PREV .And one more update. In petke comments to this entry in Aral Balkan blog I found another one liner, which looks event easier:
svn update -r 2689
#!/usr/bin/env perl
%seen = ();
foreach (@ARGV)
{
open (LFILE,"$_");
for $line ()
{
@sline=split(/\//,$line);
print ("@sline[2]\n") unless $seen{@sline[2]}++;
}
close LFILE;
}
Perl tutorial from tizag.com was helpful.
I'm glad that I finally did it so I'm sharing my scripts with you (I needed Postscript for Greek's symbols):
set term postscript eps enhanced color
set output "nlo-rhb-cc.eps"
set ylabel '{/Symbol b} [10^{-30} esu]'
set style data histogram
set style histogram cluster gap 1
set style fill solid border -1
set boxwidth
unset xtics
plot [-0.5:.7][-15000:0] "cc.csv" using 1 ti col, '' using 2 ti col, '' using 3 ti col
If you would like to try use the data below:
and data:HF/FF MP2/FF CCSD -14720.51945800 -6960.7083277 -10843.140BTW. I noted three new interesting website related to the gnuplot:
echo $myvar | perl -p -e '$_ = ucfirst'However, python looks also nice:
echo $myvar | python -c "print raw_input().capitalize()"Awk one is also nice, but a bit more complicated (one line):
echo $myvar |awk '{(sub("^.",substr(toupper($1),1,1),$1)); print }'
Just be aware that from time to time there are some politics/religion related entries.HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\OpenGLDrivers.
The another interesting finding is OpenGL Extension Viewer provided by RealTech-Vr. It works on Windows, MacOSX and under Wine.