Hi:
I´m looking for a script to manipulate strings like this:

solaris> cat file1

BANANAS:
- are delicious
- are_expensives

PINEAPPLES:
- são saborosos
- são deliciosos
- são_excêntricos

solaris> ./script > file2
solaris> cat file2

bananas_are delicious
bananas_are_expensives

pineapples_são saborosos
pineapples_são deliciosos
pineapples_são_excêntricos

Thank you !

In comp.unix.shell apogeusistemas@gmail.com:
> Hi:
> I´m looking for a script to manipulate strings like this:

You should add when your homework is due, so people can hurry
up...
[..]

Honestly, I'll look into awk, do not use the first awk in $PATH
on solaris, there are better versions installed.

Good luck

--
Michael Heiming (X-PGP-Sig > GPG-Key ID: EDD27B94)
mail: echo zvpunry@urvzvat.qr | perl -pe 'y/a-z/n-za-m/'
#bofh excuse 222: I'm not sure. Try calling the Internet's
head office -- it's in the book.

apogeusistemas@gmail.com wrote:
>
> I´m looking for a script to manipulate strings like this:
>
> solaris> cat file1
>
> BANANAS:
> - are delicious
> - are_expensives
>
> PINEAPPLES:
> - são saborosos
> - são deliciosos
> - são_excêntricos
>
> solaris> ./script > file2
> solaris> cat file2
>
> bananas_are delicious
> bananas_are_expensives
>
> pineapples_são saborosos
> pineapples_são deliciosos
> pineapples_são_excêntricos

$ echo "BANANAS:
- are delicious
- are_expensives

PINEAPPLES:
- são saborosos
- são deliciosos
- são_excêntricos
" | perl -F'\n' -la00ne'
s/\A\W+//, s/\W+\z// for @F;
$first = shift @F;
print map"\L$first\E_$_\n", @F;
'
bananas_are delicious
bananas_are_expensives

pineapples_são saborosos
pineapples_são deliciosos
pineapples_são_excêntricos



John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall

apogeusistemas@gmail.com wrote:

> Hi:
> I´m looking for a script to manipulate strings like this:
>
> solaris> cat file1
>
> BANANAS:
> - are delicious
> - are_expensives
>
> PINEAPPLES:
> - são saborosos
> - são deliciosos
> - são_excêntricos
>
> solaris> ./script > file2
> solaris> cat file2
>
> bananas_are delicious
> bananas_are_expensives
>
> pineapples_são saborosos
> pineapples_são deliciosos
> pineapples_são_excêntricos
>
> Thank you !
>

Untested:

awk -F":" 'sub(/^ *- /,""){print k"_"$0;next}{k=tolower($1)}' file1

Ed.

Ed Morton wrote:

> apogeusistemas@gmail.com wrote:
>
>> Hi:
>> I´m looking for a script to manipulate strings like this:
>>
>> solaris> cat file1
>>
>> BANANAS:
>> - are delicious
>> - are_expensives
>>
>> PINEAPPLES:
>> - são saborosos
>> - são deliciosos
>> - são_excêntricos
>>
>> solaris> ./script > file2
>> solaris> cat file2
>>
>> bananas_are delicious
>> bananas_are_expensives
>>
>> pineapples_são saborosos
>> pineapples_são deliciosos
>> pineapples_são_excêntricos
>>
>> Thank you !
>>
>
> Untested:
>
> awk -F":" 'sub(/^ *- /,""){print k"_"$0;next}{k=tolower($1)}' file1
>

Duh:

awk -F":" '/:$/{k=tolower($1)"_"}sub(/^ *- /,k)' file1

or:

awk 'sub(/:$/,"_"){k=tolower($0)}sub(/^ *- /,k)' file1

Ed.

Ed Morton wrote:

> apogeusistemas@gmail.com wrote:
>
>> Hi:
>> I´m looking for a script to manipulate strings like this:
>>
>> solaris> cat file1
>>
>> BANANAS:
>> - are delicious
>> - are_expensives
>>
>> PINEAPPLES:
>> - são saborosos
>> - são deliciosos
>> - são_excêntricos
>>
>> solaris> ./script > file2
>> solaris> cat file2
>>
>> bananas_are delicious
>> bananas_are_expensives
>>
>> pineapples_são saborosos
>> pineapples_são deliciosos
>> pineapples_são_excêntricos
>>
>> Thank you !
>>
>
> Untested:
>
> awk -F":" 'sub(/^ *- /,""){print k"_"$0;next}{k=tolower($1)}' file1
>

Duh:

awk -F":" '/:$/{k=tolower($1)"_"}sub(/^ *- /,k)' file1

or:

awk 'sub(/:$/,"_"){k=tolower($0)}sub(/^ *- /,k)' file1

Ed.