Perl - noņemt līniju

[hseong3]

Man ir teksta (list.txt) uz procesu, kas izskatās šādi:

. \ Hlee4 \ UNIX
. \ Hlee4 \ Perl
file1.pl
file2.pl
file3.pl
. \ Hlee4 \ linux
file_a.txt
file_b.txt
. \ Hlee4 \ C
. \ Hlee4 \ Verilog
file_x.v
file_y.v

Teksta fails sastāv no direktoriju nosaukumi un katalogi failiem katrā.Ja direktorija ir tukša, ne failus tiks uzskaitīti saskaņā ar to.

Man ir bijusi mēģina rakstīt Perl skriptu, lai novērstu nosaukumus katalogi, kas ir ne failus tajā.Man tiešām nav ne jausmas, kā to izdarīt.

Pārstrādāto tekstu vajadzētu izskatās šādi:

. \ Hlee4 \ Perl
file1.pl
file2.pl
file3.pl
. \ Hlee4 \ linux
file_a.txt
file_b.txt
. \ Hlee4 \ Verilog
file_x.v
file_y.v

ar. \ hlee4 \ UNIX un. \ hlee4 \ C noņemts.

Man ir bijusi meklē šis pāris dienas tagad.HELP!

 

[sreeni]

Hi, lūdzu, mēģiniet skriptu, ka man ir pievienots.

Sorce fails ir dots kā komandrindas ievades.Līnijas jauda pēc izņemšanas tiks noslēgts "updated.txt"
Atvainojiet, bet jums ir nepieciešams pieteikumvārds, lai skatītu šo arestu