Community  »  Perl: Allgemeines Forum

Version's vergleich	Seitenanfang
hi das thema hatten wir schonmal nur ich habe mich jetzt nochmal hingesetzt um das thema zu loesen. nochmal der hintergrund bei rcs ist die version 1.5 hoeherwertig als 1.10 was ja nicht zwingen der zah l entspricht. hier mal der code den ich mir ausgedacht habe um das etwas eleganter zu loesen. my @ver = split (/\./,"1.2.45.4"); my @newver ; my $a=0; while ( $a <= $#ver ) { my $c = length($ver[$a]); if ( $c == 1 ) { $newver[$a] = "$ver[$a]00"; } elsif ( $c == 2 ) { $newver[$a] = "$ver[$a]0"; } elsif ( $c == 3 ) { $newver[$a] = "$ver[$a]"; } $a++; } my $ge = join ("",@newver); print "$ge\n"; was meint ihr dazu ? holger Datum: 10.07.2008-13:43
re: Version's vergleich	Seitenanfang
Du brauchst nur den String in eine (Flieszkomma-)zahl umwandeln zum Beispiel in dem du zu dem String '0' addierst: $ perl -le '($var1,$var2) = @ARGV[0,1]; print "Vergleich: $var1 <=> $var2 ", 0+$var1 > 0+$var2 ? "groeszer" : (0+$var1 < 0+$var2 ? "kleiner" : "gleich");' 0.5 0.10 Datum: 03.08.2008-18:44