[B] Perl slags snabb fråga [/ b]

zx1106 · #1 (**permalänk**) 10-09-2008

Jag har gjort en sammanfattning av Google om detta, men kunde inte hitta det svar jag vill ha.

Säg, finns det en rad som denna:
@ A \u003d qw (CD1 A1 ef a2 hij a12 b2 B4 B22);

Jag vill sortera array i det första beslutet:
@ sorterade \u003d qw (A1 A12 A2 B2 B22 B4 CD1 ef hij);

Och andra ordningen:
@ sorterade \u003d qw (A1 A2 A12 B2 B4 B22 CD1 ef hij);

Finns det något sätt att göra detta Perl utan att använda moduler?

Tack så mycket!

jim McNamara · #2 (**permalänk**) 10-09-2008

Anser du att sorteringen en modul?

Kod:

@sorted=sort(@A);

zx1106 · #3 (**permalänk**) 10-09-2008

Tack! Det fungerar för den första beställningen.

zx1106 · #4 (**permalänk**) 10-09-2008

Hur är andra ordningen:
QW (A1 A2 A12 B2 B4 B22 CD1 ef hij);
Tack!

cbkihong · #5 (**permalänk**) 10-09-2008

Ja, du kan sortera med en egen regel. Men vad är regeln för slags? Om du inte kan arbeta fram en formell specifikation av det slag, kommer ingen att kunna göra det "korrekt".

Följande ger samma beställning som du nämnde, men det finns ingen garanti att det kommer att ge dig den "riktiga" beställning (som du kan förvänta dig) för andra indata:

Kod:

use Data::Dumper;

@A = qw(cd1 a1 ef a2 hij a12 b2 b4 b22);
print Dumper([sort {
	my ($_a, $_b);
	for ([$a, \$_a], [$b, \$_b]) {
		$_->[0] =~ /^(.+?)(\d*)$/;
		${$_->[1]} = [$1, $2];
	}
	($$_a[0] cmp $$_b[0]) || ($$_a[1] <=> $$_b[1]);
} @A]);

KevinADC · #6 (**permalänk**) 10-10-2008

Andra ordningen som verkar vara först sortering alpha sedan siffra:

Kod:

my @A = qw(cd1 a1 ef a2 hij a12 b2 b4 b22);

my @sorted = map{$_->[2]}
          sort{$a->[0] cmp $b->[0] || $a->[1] <=> $b->[1]}
          map{/([a-z]*)(\d*)/;[$1,$2,$_]} @A;

print "$_\n" for @sorted;

Google "Schwartzian Transform" om intresse i den cachade nyckeln slags teknik.

Mer UNIX och Linux Forum Ämnen Du kan hitta Helpful
Tråd	Thread Starter	Forum	Svar	Senaste Inlägg
snabb sed fråga	vbm	Shell-programmering och Skript	2	11-09-2006 10:44
Ok snabb fråga	Corrail	Shell-programmering och Skript	1	11-11-2005 01:49
Quick perl fråga	jason_v	Shell-programmering och Skript	7	11-26-2003 04:31
Snabb fråga	catbad	UNIX for Dummies Frågor & Svar	7	03-25-2003 07:01
Snabb fråga	Tracy Hunt	UNIX for Dummies Frågor & Svar	3	02-20-2001 04:20

Thread Tools	Sök i denna tråd
Visa Utskriftsversion Mejla den här sidan	Sök i denna tråd: Avancerad sökning
Visningslägen	Betygsätt denna tråd
Switch to Linear Mode Hybridläge Switch to Gängade Mode	Betygsätt denna tråd:


	Powered by