$
$ cat file_svn
https://ims-svnus.com/dev/DB/trunk/feeds/templates/shell_script.txt -r860
https://ims-svnus.com/dev/DB/trunk/db/sec_db/stored_procedures/alter.sql -r990
https://ims-svnus.com/dev/DB/trunk/com/bin/aim/filter.java -r456
$
$
$ cat -n svn_extract.pl
     1  #!/usr/bin/perl -w
     2  use File::Path qw(make_path);
     3  use strict;
     4
     5  my @base_dirs = qw (/home/dev/filter/build/tmpl /home/dev/filter/build/ovrd);
     6  my $version_file = "file_svn";
     7
     8  open (FH, "<", $version_file) or die "Can't open $version_file: $!";
     9  while (<FH>) {
    10    m|^.*/trunk/(.*)/(.*?) -r\d+$|;
    11    my ($dir_path, $file_name) = ($1, $2);
    12    foreach my $base (@base_dirs) {
    13      my $dir_to_test  = "$base/$dir_path";
    14      my $file_to_test = "$base/$dir_path/$file_name";
    15      if (! -d $dir_to_test) {
    16        print "Creating dir and file: $file_to_test\n";
    17        make_path ($dir_to_test);
    18        open (F, '>', $file_to_test);
    19        close (F);
    20      } elsif (! -e $file_to_test) {
    21        print "Creating file: $file_to_test\n";
    22        open (F, '>', $file_to_test);
    23        close (F);
    24      } else {
    25        print "File: $file_to_test exists!\n";
    26      }
    27    }
    28  }
    29  close (FH) or die "Can't close $version_file: $!";
    30
$
$