<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
#use strict;
#use warnings;
require "/home/marelli/Calcolo/bin/CreateInitial.pl";
require "/home/marelli/Calcolo/bin/FileElaborate.pl";

#CreateRandom3d();
#CreateOndulate();

#CreateScript();
#FileMedia(@ARGV);
#FileKlebt(@ARGV);
#print "@ARGV\n";
$filename = @ARGV[0];
$outfile = @ARGV[1];    
open( FILE, "&lt; $filename" ) or die "Can't open $filename : $!";
open( OUTFILE, "&gt; $outfile") or die "Can't open $outfile : $!";
#ColMultiply($filename);
#open( OTHER,"ChemPot.2.dat") or die "Can't open $outfile : $!";
#print "Leggo da $filename e scrivo su $outfile\n";
#binmode FILE; 

#while ($dati = &lt;FILE&gt;) { 
#    print $dati;
#}

#@lines = &lt;FILE&gt;;
#close (FILE);
#Average(@lines);
#print @lines;


#$op = shift;
#for( @ARGV ) {
#    $was = $_;
#    eval $op;
#    die if $@;
#    rename( $was, $_ ) unless $was eq $_;
#}
</pre></body></html>