Ammartins ( Tó ) @ 15:51

Ter, 24/06/08

Como poupar um dia de trabalho.

 

#!/usr/bin/perl -w

sub leitura() {
    my @files = glob("c:\\pics\\*");

    foreach my $file (@files){
        # Gets Id
        my $ID = substr($file, 8, 3);
        if ( index($ID, "_", 0) == 1 ) {
             $ID = substr($ID,0,1);
        }
        else {
            $ID = substr($ID,0,2);
        }
        # End Get Id
        $file = substr($file, 8);
        print "($ID, 0, '$file', 0, 0.00, 0, '$file') \n";
    }
}

leitura();

 

O resultado,147 linhas de Sql em menos de 2segundos


música: Sit in the blues
Tags: ,


Saяa @ 17:39

Ter, 24/06/08

 

Tas a ficar muito geek pá


Ammartins ( Tó ) @ 22:12

Ter, 24/06/08

 

EUUUU .... nuncaaaaaaaa


* * Grilinha * * @ 21:21

Ter, 24/06/08

 

Depois que anda a ler um livro novo ficou a falar "em código"

Junho 2008
Dom
Seg
Ter
Qua
Qui
Sex
Sab

1
2
3
4
5
6
7

8
9
10
13
14

15
17
18
19
20
21

22
23
26
28

29


Pesquisar
 
blogs SAPO