Complex Script

Shell Programming and Scripting
1

hey... i had a big problem with my professor

i have 3 simple archives

in.txt -> had all timestamps of users logon (100lines)
ex. 111111
222222
333333
out.txt -> had all timestamps of users logof (100lines)
ex. 111113
222225
333332
commands.txt -> timestamps anda the commands ofs de users (whatever)
ex.
111112
last >> last.txt
222223
other command
333333
another and another
i did a simple chinese

int in = 1   (lines of in.txt)
int out = 1 (lines of (out.txt)
int c = 1   (lines of commands.txt)

while ( in != end ){
    printf(logon = in / logout = out);
    while( c != end)
    {
        if ( c > in || c < out ) 
        {
            printf c+1;
            c+2;
        }
        else
            printf NO commands in this session;
            c+2;
    }
    in++;
    out++;
}

i try to ...

2

What EXACTLY are you trying to accomplish? We see what you did.

Waht output do you want, for example?

Note - this looks like C shell. Not many people here are familiar with it because it has serious problems for use production systems.

3

I'll try to explain better

history.txt ( the numbers is the timestamp under this is the command used)

1285875611
last
1285875780
history
1285871080
nano .bashrc
1285871000
history
1285871325
sudo su
1285865300
history

in.txt ( timestamps when the user started the session )

1285876440
1285875600
1285871580
1285871040
1285870860
1285870860
1285865100

out.txt ( timestamps when the user stoped to use )

1285876440
1285876140
1285871580
1285871100
1285870860
1285876380
1285868160

i need this

1285876440 :: 1285876440 .....................//is the same because is the current login
1285875600 :: 1285876140 ..................... //second line of in and out text
1285875611 last ...................................... //command used between the login
1285875780 history .................................. //command used between the login
1285871580 :: 1285871580 .....................//third line of in and out text
1285871040 :: 1285871100 ..................... //line 4 of in and out text
1285871080 nano .bashrc ......................... //command used between the login
1285870860 :: 1285870860 ..................... //line 5 of in and out text
1285870860 :: 1285876380 ..................... //line 6 of in and out text
1285871000 history .................................. //command used between the login
1285871325 sudo su .................................. //command used between the login
1285865100 :: 1285868160 ..................... //line 7 of in and out text
1285865300 history ................................. //command used between the login

4 
#!/usr/bin/env ruby  
# 1.9.1
f=File.readlines("history.txt")
f.each_with_index{|x,i| x.chomp!; f[i-1]<<" " << x and f=nil if (i+1)%2==0}
f.compact!
g=File.read("in.txt").split
h=File.read("out.txt").split
comb=g.zip(h)
final=[]
comb.each do |x|
    final<<"#{x[0]} #{x[1]}"
    f.each_with_index do |com,ind|
        n,cmd=com.split
        n=n.to_i
        final<< com if n.to_i.between?(x[0].to_i,x[1].to_i)
    end
  end
puts final.uniq

$ ruby myscript.rb
1285876440 1285876440
1285875600 1285876140
1285875611 last
1285875780 history
1285871580 1285871580
1285871040 1285871100
1285871080 nano .bashrc
1285870860 1285870860
1285870860 1285876380
1285871000 history
1285871325 sudo su
1285865100 1285868160
1285865300 history
5

I don't know how to explain how much do you help me !

thks a lot !!!!

6

Really nice post , but I would like to suggest another technique using Perl:-

perl -wle '
open(IN , "<in.txt") or die "can not open$!\n" ;
open(OUT , "<out.txt") or die "can not open$!\n" ;
open(HIS , "<history.txt")  or die "can not open$!\n" ;
@in = <IN> ;
@out = <OUT> ;
@his = <HIS>  ;
close(IN) ;close(OUT) ;close(HIS) ;
chomp @in; chomp @out; chomp @his ;
%his=@his ;
for ($i=0 ; $i<=$#in ; $i++) {
                         if ($in[$i] == $out[$i]) {
                               print $in[$i],"  ",$out[$i]; next;
                               }
             map {
                          if ( $_ > $in[$i] && $_ < $out[$i] && $his{$_}) {
                                 print  $in[$i],"  ",$out[$i] if ( ! $flag ) ;
                                 print $_,"  ",$his{$_} ;
                                 delete $his{$_} ;
                                 $flag=1 ;
                                           }
                        } keys %his ;
         $flag=0 ;
}
'

;);):wink:

7

thks ahmad.dias

nice one !

8

no problem man , by the way it is ahmad.diab not ahmad.dias :D:D:D

9

sorry !!! XDD

10

if you use delete $his{$} instead of undef $his{$} (recomendation of Perl docs) it will be better and processing will be lesser; because code will be as below:-

for ($i=0 ; $i<=$#in ; $i++) {
                         if ($in[$i] == $out[$i]) {
                               print $in[$i],"  ",$out[$i]; next;
                               }
             map {
                          if ( $_ > $in[$i] && $_ < $out[$i] ) {
                                 print  $in[$i],"  ",$out[$i] if ( ! $flag ) ;
                                 print $_,"  ",$his{$_} ;
                                 delete $his{$_} ;
                                 $flag=1 ;
                                           }
                        } keys %his ;
         $flag=0 ;
}

;):wink: