# Make Unix style path 
$dir=~s|\\|/|gi; 
 
# Remove trailing slashes 
$sep=$/; $/="/"; chomp($dir); $/=$sep; 
 
# Now try to get the list of files 
open(FILELIST,"<wp.csv")  
  or die "Could not find file list at $dir/wp.csv.\n$docstring"; 
 
while(<FILELIST>) { 
        $line=$_; 
        chomp($line); 
	$line=~tr/"//d; #removes the double quotes 
	($iname,$idescr,$idate,$ipermission,$iothers,$lat,$long,$region,$rtype,$geo_heading,$cat1) = split ',' , $line; #separates the csv values into fields 
 
#stores wikisyntax in a string 
	$metatext= "==Summary==\n{{Information\n|Description=$idescr\n|Source=Own work by uploader\n|Author=[[User:$username|$username]]\n|date=$idate\n|Permission={{self|$ipermission}}\n|other versions=$iothers\n}}\n\n{{location dec|$lat|N|$long|E|region:$region\_type:$rtype\_heading:$geo_heading}}\n\n==[[Commons:Copyright tags|Licensing]]==\n{{self|$ipermission}}\n\n\n[[Category:$cat1]]\n\n\n"; 
 
	print $metatext;  
}

open(FILELIST,"<wp.csv")   
  or die "Could not find file list at $dir/wp.csv.\n$docstring"; 
 
<FILELIST>; #<-- skips first line

# Make Unix style path  
$dir=~s|\\|/|gi;  
  
# Remove trailing slashes  
$sep=$/; $/="/"; chomp($dir); $/=$sep;

# Now try to get the list of files  
open(FILELIST,"<wp.csv")   
  or die "Could not find file list at $dir/wp.csv.\n$docstring";

open my $fh, '<', "$dir/wp.csv" 
  or die "cannot open $dir/wp.csv: $!";

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use utf8; 
 
use Data::Dumper; 
$Data::Dumper::Sortkeys = 1; 
$Data::Dumper::Indent   = 1; 
$Data::Dumper::Maxdepth = 0; 
 
# -------------------------------------- 
#      Usage: print_csv( $fh, @fields ); 
#    Purpose: Print the field to the file as comma-separated values. 
#    Returns: none 
# Parameters:     $fh -- file handle 
#             @fields -- list of fields 
# 
sub print_csv { 
  my $fh     = shift @_; 
  my @fields = @_; 
  my @sanitized = (); 
 
  for ( @fields ){ 
    if( /^\s|[",\n]|\s$/ ){ 
      push @sanitized, "\"$_\""; 
    }else{ 
      push @sanitized, $_; 
    } 
  } 
 
  print $fh join( ",", @sanitized ), "\n"; 
  return; 
} 
 
# -------------------------------------- 
#      Usage: @fields = read_csv( $fh ); 
#    Purpose: Read one tuple from a file. 
#    Returns: @fields -- list of fields read 
# Parameters:     $fh -- file handle 
# 
sub read_csv { 
  my $fh     = shift @_; 
  my @fields = (); 
  my $field = ''; 
  my $state = 0;   # 0 == free context 
                   # 1 == inside double quotes 
 
  my $line = <$fh>; 
  while( length( $line ) ){ 
 
    if( $state == 0 ){ 
      if( $line eq "\n" ){ 
        last; 
      } 
      if( $line =~ s/^"// ){ 
        $state = 1; 
        $field = ''; 
      }else{ 
        $line =~ s/^([^,\n]*)//; 
        push @fields, $1; 
        $line =~ s/^,//; 
      } 
    } 
     
    if( $state == 1 ){ 
      for(;;){ 
        while( $line =~ s/^([^"]+)// ){ 
          $field .= $1; 
          $line = <$fh> unless length( $line ); 
        } 
        if( $line =~ s/^""// ){ 
          $field .= '"'; 
          next; 
        } 
        $line =~ s/^"//; 
        push @fields, $field; 
        $state = 0; 
        $line =~ s/^,//; 
        last; 
      } 
    } 
 
  } 
 
  return @fields; 
} 
 
for my $file ( @ARGV ){ 
  open my $fh, '<', $file or die "cannot open $file: $!"; 
  my @titles = read_csv( $fh ); 
  printf "Titles [%d]: ", scalar( @titles ); 
  print Dumper \@titles; 
  while( ! eof( $fh ) ){ 
    my @fields = read_csv( $fh ); 
    printf "Fields [%d]: ", scalar( @fields ); 
    print Dumper \@fields; 
  } 
  close $fh; 
} 
 
__END__

open my $fh, '<', $csv_file or die "cannot open $csv_file: $!"; 
for(;;){ 
  ( $col1, $col2, $col3, @rest ) = read_csv( $fh ); 
  last if eof( $fh ); 
  # process the fields 
}

open my $fh, '<', $csv_file or die "cannot open $csv_file: $!";  
my @titles = read_csv( $fh ); 
for(;;){  
  ( $col1, $col2, $col3, @rest ) = read_csv( $fh );  
  last if eof( $fh );  
  # process the fields  
}