Opened by Gast at 2005-09-05 04:57
User since
2003-08-04
14371 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
14371 Artikel
ModeratorIn
Abfrage der Dateiname:
Wir sind hier ja nicht da, um Dir ein komplettes Programm zu schreiben.
Du solltest
use strict; verwenden und Du musst die ganzen hardgecodeten Sachen durch Variablen ersetzen...
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#! /perl/bin/perl
use strict;
use warnings;
print "Bitte geben Sie den ersten Dateinamen ein: ";
my $file1 = <STDIN>;
chomp $file1;
print "Bitte geben Sie den zweiten Dateinamen ein: ";
my $file2 = <STDIN>;
chomp $file2;
[...evtl weitere Eingaben...]
[...code von zaehler.pl...]
[...code von vergleich.pl...]
[...code von division.pl...]
Wir sind hier ja nicht da, um Dir ein komplettes Programm zu schreiben.
Du solltest
use strict; verwenden und Du musst die ganzen hardgecodeten Sachen durch Variablen ersetzen...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--
Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Frankfurt Perlmongers (http://frankfurt.pm/)
--
Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/