Thanks John...I appreciate it!!
> >
> > I was just wondering if there is anything similar
> > in perl for unix commands pushd / popd ??
>
> > pushd and popd are built-in shell commands, they aren't really "Unix"
> >commands. What exactly are you trying to do?
>
> >perldoc -f push
> >perldoc -f pop
> >perldoc -f shift
> >perldoc -f unshift
> >perldoc -f splice
>
> I have this awfully old shell script that used lots of pushd
> and popd and I need to convert it to perl. I will have to
> settle with push and pop and cwd for the time being. Thanks
> anyways !!
>Here is a very simple implementation (no error checking.) Stick it at
>the top of your program so that the prototypes will work.
>{
>use Cwd;
>my @stack = cwd;
>sub dirs () {
> print "@stack\n";
}
>sub pushd ($) {
> unshift @stack, shift;
> dirs;
> }
>sub popd () {
> @stack > 1 and shift @stack;
> dirs;
> }
>}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
