Datei aufrufen (gelöst) (Allgemeines zu Perl)

[thread]19602[/thread]

Datei aufrufen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+7 replies

Gast Henri

2015-04-03 16:35

Hallo Leute , ich habe lange auf internet gesucht und nicht drauf defunden, ich wollte wissen, wie man Eingabedatei auf perl-Strawberry aufrufen kann, damit die in einem Code ausgeführt wird.
Last edited: 2015-04-03 18:21:48 +0200 (CEST)

+6 replies

GwenDragon

2015-04-03 18:41

User since
2005-01-17
14533 Artikel
Admin1

In der Shell/DOS-Eingabeaufforderung starten.
Syntax ist: perl programm.pl eingabedatei.txt

Oder willst du wissen wie du an den Dateinamen einer Eingabe kommst?

Code (perl): (dl )

1
2
3

my ($filename) = shift @ARGV;

open (my $fh, '<', $filename) or die "Datei '$filename' nicht gefunden";

Last edited: 2015-04-03 18:42:51 +0200 (CEST)

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

+5 replies

Gast Henri

2015-04-04 18:15

also ich meine dass die Eingabedatein müssen als Parameter beim Aufruf des Scriptes mitübergeben werden. dh wenn sie mein unteres stehendes code habe ich die Eingabedateien festgelegt, und das will ich nicht, ich möchte die gern von meinem Perl-editor aufrufen und lasst die von meinem code ausführen.

Code (perl): (dl )

use strict;          
use warnings;        
use File::Compare;   


my %exclude;         
my $file1 = 'default_sysdumpdev_150319.txt';
my $file2 = 'd100spuptl25e0_sysdumpdev.txt';
my $compare = compare('d100spuptl25e0_sysdumpdev.txt', 'default_sysdumpdev_150319.txt');
   
open my $file, '<', 'default_sysdumpdev_150319.txt' or die $!; 
while (<$file>) {
  chomp;             
  $exclude{$_}++;    
}


my $txtdatei = 'compare.txt';              
open my $txtfh, '>', $txtdatei or die $!;  

open $file, '<', 'd100spuptl25e0_sysdumpdev.txt' or die $!;
                                                            
while (<$file>) {
  chomp;            
  if($compare == 1){   
  
  #print $txtfh "False! the files are not equal \n";    
 
  print $txtfh "FALSE! $_\n" unless $exclude{$_};             
                                                       

  }
  elsif($compare == 0){ 
             
  print $txtfh "True! the Files are equal \n";         
  }
}
close $txtfh;

Last edited: 2015-04-04 18:38:14 +0200 (CEST)

+4 replies

GUIfreund

2015-04-06 18:55

User since
2011-08-08
559 Artikel
BenutzerIn
[default_avatar]

Guest Henri
die Eingabedatein müssen als Parameter beim Aufruf des Scriptes mitübergeben werden.

In deinem Skript stehen die Aufrufparameter im Array @ARGV. Einzelheiten dazu findest du in perldoc -v @ARGV.

Gruß
GUIfreund

+3 replies

Gast Henri

2015-04-07 10:17

mein Code steht oben, leider habe ich bis jetzt noch nicht geschafft.
Last edited: 2015-04-07 10:27:54 +0200 (CEST)

+2 replies

Gast wer

2015-04-07 17:14

Code (perl): (dl )

use strict;          
use warnings;        
use File::Compare;   


my %exclude;         
my $file1 = $ARGV[0] || die 'No file 1';
my $file2 = $ARGV[1] || die 'No file 2';
my $txtdatei = $ARGV[3] || 'No file 3';

my $compare = compare($file2, $file1);
   
open my $file, '<', $file1 or die $!; 
while (<$file>) {
  chomp;             
  $exclude{$_}++;    
}


open my $txtfh, '>', $txtdatei or die $!;  

open $file, '<', $file2 or die $!;
                                                            
while (<$file>) {
  chomp;            
  if($compare == 1){   
  
  #print $txtfh "False! the files are not equal \n";    
 
  print $txtfh "FALSE! $_\n" unless $exclude{$_};             
                                                       

  }
  elsif($compare == 0){ 
             
  print $txtfh "True! the Files are equal \n";         
  }
}
close $txtfh;

Last edited: 2015-04-07 17:31:20 +0200 (CEST)

Gast Henri

2015-04-08 17:40

Velen Dank es hat geklappt
Last edited: 2015-04-08 17:44:12 +0200 (CEST)

View all threads created 2015-04-03 16:35.