Path: utzoo!utgpu!jarvis.csri.toronto.edu!clyde.concordia.ca!uunet!ns-mx!iowasp!deimos!ux1.cso.uiuc.edu!uwm.edu!rpi!zaphod.mps.ohio-state.edu!usc!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: sed / awk -> perl
Keywords: sed awk translator
Message-ID: <7014@jpl-devvax.JPL.NASA.GOV>
Date: 8 Feb 90 00:09:27 GMT
References: <1990Feb6.160320.24006@ccu.umanitoba.ca>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 15

In article <1990Feb6.160320.24006@ccu.umanitoba.ca> rahardj@ccu.UManitoba.CA (B. Rahardjo) writes:
: I'm new in 'perl' so I want to see what it can do by
: translating some of my sed and awk scripts into perl.
: The man page says there are translators for sed-> perl, and awk->perl.
: So ... where can I get it ?

They're called s2p and a2p, and they come with perl.  s2p is in fact a perl
script.

Don't expect these translators to produce totally idiomatic perl code, but
they do okay for showing you what the direct equivalents are.  It's generally
possible to take the translated code and shrink it by half, and make it
much more readable in the process.

Larry