Datei aufrufen (solved) (Allgemeines zu Perl)

[thread]19602[/thread]

Datei aufrufen [solved]

Tags: perl5 Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+7 replies

guest 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
14835 articles
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 Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+5 replies

guest 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 articles
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

guest 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

guest 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)

guest 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.