<INPUT>

[Gabriel]

How can I do a program that receive a file or any string, and count its
\t, \n or anything that I want?

perl miprogram jjjj.txt
\n ---> 12
\t ---> 7

or

perl miprogram bla blablba bal balb balba
\n ---> 1
\t ---> 0


Thanks.

 

[anno4000]

How can I do a program that receive a file or any string, and count its
\t, \n or anything that I want?

perl miprogram jjjj.txt
\n ---> 12
\t ---> 7

or

perl miprogram bla blablba bal balb balba
\n ---> 1
\t ---> 0

How would your program know that the first text is a file name and
the second a literal text to run the count on? You'll have to specify
that somehow.

Apart from that, Perl's tool for character counting id tr///. Look it
up in perlop.

Anno

 

[Brian Wakem]

How can I do a program that receive a file or any string, and count its
\t, \n or anything that I want?

perl miprogram jjjj.txt
\n ---> 12
\t ---> 7

or

perl miprogram bla blablba bal balb balba
\n ---> 1
\t ---> 0

perldoc -q count

 

[Mirco Wahab]

How can I do a program that receive a file or any string, and count its
\t, \n or anything that I want?

perl miprogram jjjj.txt
\n ---> 12
\t ---> 7

or

perl miprogram bla blablba bal balb balba
\n ---> 1
\t ---> 0

In addition to the correct ways - which were
already mentioned, you could always use
someting 'traditional' like (under *n*x) -
- count anything (eg. the string "XYZ") that
is in file "file.dat":

$ perl -0777 -ne 'print 0+@{[/XYZ/g]}' file.dat

or, count something that comes on a
string, eg. the "\n":

$ echo 'some \
text \
with \
newlines \
here ' | perl -0777 -ne 'print 0+@{[/\n/g]}'

(returns: "5" !)

But stick to the perldoc variants
(which were mentioned before) if
possible.

Regards

Mirco