Shell Programming and Scripting

-bash-3.2$ dos2unix file_check.pl

dos2unix: converting file file_check.pl to UNIX format ...

-bash-3.2$ ./file_check.pl

./file_check.pl: line 3: sub: command not found

./file_check.pl: line 5: =: command not found

./file_check.pl: line 6: -=: command not found

./file_check.pl: line 7: =: command not found

./file_check.pl: line 9: syntax error near unexpected token `('

./file_check.pl: line 9: `      $mtime = (stat("$_[0]"))[9] || die "cannot stat file $!";  '

cat -veT file_check.pl

-bash-3.2$ cat -veT file_check.pl

$

#!/usr/local/bin/perl$

sub ExampleFiles{$

$

      $today = time;$

      $today -= $today % 86400;  $

      $return_value = 0;$

                                    #  $

      $mtime = (stat("$_[0]"))[9] || die "cannot stat file $!";  $

      $size =  (stat("$_[0]"))[7];  # size in bytes$

      $ok = "not ok";$

      $

      if( $size > 0 && $mtime >= $today )$

      {$

            $ok = "ok"; $

            $return_value = 1;           $

      }$

      print "$_[0] is $ok\n";$

      return $return_value;$

}$

$

$found = 0;$

opendir (DIRHNDL, "/loc1/dir3") ||  die "Cannot open directory $!";$

@filelist = readdir (DIRHNDL);$

closedir (DIRHNDL);$

$

foreach $filename ( @filelist )$

{$

   if ($filename =~ /txt$/)$

   {$

     $found |= ExampleFiles $filename;$

   }$

}$

print "return status = $found\n";$

$

exit 0;$

$

$

$

-bash-3.

perl -v
perl -V

-bash-3.2$ perl -v



This is perl, v5.8.7 built for i686-linux



Copyright 1987-2005, Larry Wall



Perl may be copied only under the terms of either the Artistic License or the

GNU General Public License, which may be found in the Perl 5 source kit.



Complete documentation for Perl, including FAQ lists, should be found on

this system using `man perl' or `perldoc perl'.  If you have access to the

Internet, point your browser at http://www.perl.org/, the Perl Home Page.



-bash-3.2$ perl -V

Summary of my perl5 (revision 5 version 8 subversion 7) configuration:

  Platform:

    osname=linux, osvers=2.6.9-78.0.13.el, archname=i686-linux

    uname='linux dopes.secrea.com 2.6.9-78.0.13.el #1 wed jan 7 17:31:05 est 2009 i686 i686 i386 gnulinux '

    config_args='-ds -e -Dprefix=/usr/local -Dinstallprefix=/usr/local/encap/perl-5.8.7'

    hint=recommended, useposix=true, d_sigaction=define

    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef

    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef

    use64bitint=undef use64bitall=undef uselongdouble=undef

    usemymalloc=n, bincompat5005=undef

  Compiler:

    cc='cc', ccflags ='-fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',

    optimize='-O2',

    cppflags='-fno-strict-aliasing -pipe -I/usr/local/include'

    ccversion='', gccversion='3.4.6 20060404 (Red Hat 3.4.6-10)', gccosandvers=''

    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234

    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12

    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8

    alignbytes=4, prototype=define

  Linker and Libraries:

    ld='cc', ldflags =' -L/usr/local/lib'

    libpth=/usr/local/lib /lib /usr/lib

    libs=-lnsl -ldb -ldl -lm -lcrypt -lutil -lc

    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc

    libc=/lib/libc-2.3.4.so, so=so, useshrplib=false, libperl=libperl.a

    gnulibc_version='2.3.4'

  Dynamic Linking:

    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'

    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'





Characteristics of this binary (from libperl):

  Compile-time options: USE_LARGE_FILES

  Built under linux

  Compiled at May 27 2009 12:11:46

  @INC:

    /usr/local/lib/perl5/5.8.7/i686-linux

    /usr/local/lib/perl5/5.8.7

    /usr/local/lib/perl5/site_perl/5.8.7/i686-linux

    /usr/local/lib/perl5/site_perl/5.8.7

    /usr/local/lib/perl5/site_perl

    .

-bash-3.2$

od -bc file_check.pl