Perl Tutorial - 54: Copying Files Video Lecture | Perl Building Blocks: An Introduction to Perl - Back-End Programming

hello guys welcome to my channel this is
the 54th tutorial in this course and in
this role we're gonna see how we can
copy a file from one location to another
in Perl so I have a script here that's
called copy underscore files and in this
script on line number three I have used
the open function to create a connection
called source with the dogs txt file
that we work with the couple of
tutorials ago and remember this file has
lyrics from The Pink Floyd song dogs and
the location of this file is in the
Documents folder so let me go to the
Documents folder and there we go we have
the text file dogs here and this is all
the text that's there in it so we want
to create a copy of this file you know
at the desktop and if I go to my desktop
right now I do not have any file here I
just have the recycle bin icon and I'll
go back to my IDE and I'll see what name
I have given to the file that I want to
create I have named it my space file and
since this is another file and you know
we want to write the text to this file I
have opened it with a different
connection name and you know this time I
have named the connection destination
and of course when you're reading a file
you have to use the less than symbol in
the open function and when you are
writing to it you have to use the
greater than symbol or the outward
Direction operator as they call it you
know with the open function so I wanna
call it my file and I'm going to save it
on my desktop so the process is simple I
will loop through the contents of source
which is the connection with dogs dot
txt the file from which I'm going to
read the text and remember when you read
the text the text is copied in the
scalar variable dollar underscore and
when you have to write it you just have
to type the name of your
connection the one with the the file the
in which you want to write the content
so that in this case would be
destination so inside the body of I'll I
just have a print statement with the the
name of the connection destination a
space and then dollar underscore so this
has the contents from the text file and
you know everything would be printed in
the text file for which the connection
name is destination and then finally
outside the while loop I have to close
both the connection so I have closed
source first and then I have used a
close function to close destination so
I'll save the file and I'll press f5 to
run again I don't see any specific
message in the output window I'll close
it and now I'll go to my desktop and I
see that I have a text file here which
is called my file when I open it I see
contents from the file dogs so that's
how you copy file from one location to
another in Perl and I hope you guys had
fun watching this tutorial you may
subscribe to my channel if you haven't
already I'm going to see you in the next
video till then take care