$line =~ s/^(.{20}).+/$1.../ ;Rgds, Connie > > > Hi all, > > > > > > I have a string $line that can be a short word or a very long > > > line, and I > > > want to cut it if it is longer than 20 characters, then to > > > end it with .... > > > Is there any Perl function for chopping what is over a number > > > of characters? > > > > > > For example I have a string: > > > > > > $line = "Microsoft is a big company and I love Bill Gates"; > > > And I want to cut it to become: > > > > > > $line = "Microsoft is a big..."; > > > > > > Thanks. > > > > > > Teddy Center: http://teddy.fcc.ro/ > > > Mail: [EMAIL PROTECTED] > > > > > > > > > > > > > > > -- > > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > > > -- > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
