16 lut 2009

Usuwanie plików wiekszych niż 100MB

Usuwanie plików w katlogu lokalnym

find . -type f -size +100000k -exec rm -f {} \;

Formatowanie

find . -type f -size +5000k -exec ls -lh {} \;
find . -type f -size +50000k -exec ls -lh {} \; | awk '{ print $9 ": " $5 }'
20 wrz 2008

Dodawanie rekordów do bazy PostgreSQL

#!/usr/bin/perl
use Pg;

open(PLIK,"silownie.csv");
@tablica=<PLIK>;
close PLIK;
chop(@tablica);
$koniec = @tablica;

$baza = Pg::connectdb("dbname = bazatestowa");
$baza->exec("begin");

for ($i=0;$i<30;$i++) {
@tab=split(/;/,$tablica[$i]);
my $wynik = $baza->exec("insert into silownia values ('$tab[0]','$tab[1]','$tab[2]','$tab[3]')");
}

$baza->exec("end");
print "Ok\";
16 wrz 2008

ping w php

exec("ping moa.waw.pl < zapis.txt");
exec("ping moa.waw.pl &");
28 lip 2008

Dodawanie wpisu Linked Servers

EXEC sp_addlinkedserver
  @server = 'ba2ws',
  @provider = 'SQLOLEDB',
  @srvproduct='',
  @provstr = 'DRIVER={SQL Server};SERVER=10.1.0.10;UID=polska;WD=polska2;'
--mapuje konto na lokalnym i odległym serwerze
EXEC
sp_addlinkedsrvlogin  @rmtsrvname =  'ba2ws'
    ,  @useself =  'false'
    ,  @locallogin =  'sa'
    ,  @rmtuser =  'polska'
    ,  @rmtpassword =  'polska2'