Styjun

Time war story - soldier name lengthens as he travels further from the battle front

How to tell readers that I know my story is factually incorrect?

Polynomials with natural coefficients arising from exponentiation and sums

Why do we need an estimator to be consistent?

Will copper pour help on my single-layer PCB?

Does the Bracer of Flying Daggers really let a thief make 4 attacks per round?

why neutral does not shock. how can a neutral be neutral in ac current?

Linearize or approximate a square root constraint

"move up the school" meaning

Satellite in orbit in front of and behind the Moon

Is art a form of communication?

What is the origin of "Wonder begets wisdom?"

Why is there an extra "t" in Lemmatization?

Host telling me to cancel my booking in exchange for a discount?

Nilpotent elements of Lie algebra and unipotent groups

Is it possible to have a career in SciComp without contributing to arms research?

Aren't all schwa sounds literally /ø/?

Three Subway Escalators

Can a creature sustain itself by eating its own severed body parts?

When will the last unambiguous evidence of mankind disappear?

Improving an O(N^2) function (all entities iterating over all other entities)

How to declare an array without specifying its size, but with an initializer inside a class in C++?

Manager is asking me to eat breakfast from now on

Ethiopian Airlines tickets seem to always have the same price regardless of the proximity of the date?

How to split multiple file name and get last name in output

How do you split a list into evenly sized chunks?How do I split a string with multiple separators in javascript?How to split a string into a list?How do I split a string on a delimiter in Bash?Split Strings into words with multiple word boundary delimitersHow to split a string in shell and get the last fieldSplit string with multiple delimiters in PythonUbuntu bash script: how to split path by last slash?splitting name into first, middle, lastSplit string and get last element

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

-3

I have to split the path names I get from another function. I don't want to use any module. My current code is

my $val ="@missing";
foreach($val)
 my f= split '/', $val;
 say ($f[1]);

Output

xyz/c.html xyz/i/x.gif

I want only the file name like this.

c.html
x.gif

perl split

share|improve this question

edited Mar 26 at 12:58

Jack

asked Mar 26 at 12:20

JackJack

166 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  perldoc File::Basename
  
  – toolic
  Mar 26 at 12:21
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  @toolic I want the output without lib using.
  
  – Jack
  Mar 26 at 12:23
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  File::Basename is a core module. No need to reinvent the wheel.
  
  – dgw
  Mar 26 at 12:28
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  @dgw How can i used that one?
  
  – Jack
  Mar 26 at 12:29
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Why don't you want to use any module? Is it because you can't install any? Because you don't want too many dependencies? Because this is homework and that's a requirement?
  
  – Dada
  Mar 26 at 12:40
  

  
  
  
  

 | 
show 2 more comments

-3

I have to split the path names I get from another function. I don't want to use any module. My current code is

my $val ="@missing";
foreach($val)
 my f= split '/', $val;
 say ($f[1]);

Output

xyz/c.html xyz/i/x.gif

I want only the file name like this.

c.html
x.gif

perl split

share|improve this question

edited Mar 26 at 12:58

Jack

asked Mar 26 at 12:20

JackJack

166 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  perldoc File::Basename
  
  – toolic
  Mar 26 at 12:21
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  @toolic I want the output without lib using.
  
  – Jack
  Mar 26 at 12:23
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  File::Basename is a core module. No need to reinvent the wheel.
  
  – dgw
  Mar 26 at 12:28
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  @dgw How can i used that one?
  
  – Jack
  Mar 26 at 12:29
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Why don't you want to use any module? Is it because you can't install any? Because you don't want too many dependencies? Because this is homework and that's a requirement?
  
  – Dada
  Mar 26 at 12:40
  

  
  
  
  

 | 
show 2 more comments

I have to split the path names I get from another function. I don't want to use any module. My current code is

my $val ="@missing";
foreach($val)
 my f= split '/', $val;
 say ($f[1]);

Output

xyz/c.html xyz/i/x.gif

I want only the file name like this.

c.html
x.gif

perl split

share|improve this question

edited Mar 26 at 12:58

Jack

asked Mar 26 at 12:20

JackJack

166 bronze badges

my $val ="@missing";
foreach($val)
 my f= split '/', $val;
 say ($f[1]);

xyz/c.html xyz/i/x.gif

c.html
x.gif

share|improve this question

edited Mar 26 at 12:58

Jack

asked Mar 26 at 12:20

JackJack

166 bronze badges

share|improve this question

edited Mar 26 at 12:58

Jack

asked Mar 26 at 12:20

JackJack

166 bronze badges

asked Mar 26 at 12:20

JackJack

166 bronze badges

asked Mar 26 at 12:20

JackJack

166 bronze badges

1 Answer
1

active

oldest

votes

2

You could substitute everything up to the last slash (/). But that approach is non-portable. Perl core comes with File::Spec which allows you to write portable code:

#!/usr/bin/perl
use warnings;
use strict;

my @paths = (
 "xyz/c.html",
 "xyz/i/x.gif",
);

# Non-portable code using regex
foreach my $path (@paths) 
 (my $basename = $path) =~ s,.*/,,;
 print "$path -> $basenamen";


# Portable implementation using Perl core modules
use File::Spec;

foreach my $path (@paths) 
 my(undef, undef, $basename) = File::Spec->splitpath($path);
 print "$path -> $basenamen";


exit 0;

Test run:

$ perl dummy.pl
xyz/c.html -> c.html
xyz/i/x.gif -> x.gif
xyz/c.html -> c.html
xyz/i/x.gif -> x.gif

share|improve this answer

answered Mar 26 at 12:36

Stefan BeckerStefan Becker

4,58133 gold badges1111 silver badges2525 bronze badges

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55357022%2fhow-to-split-multiple-file-name-and-get-last-name-in-output%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

2

You could substitute everything up to the last slash (/). But that approach is non-portable. Perl core comes with File::Spec which allows you to write portable code:

#!/usr/bin/perl
use warnings;
use strict;

my @paths = (
 "xyz/c.html",
 "xyz/i/x.gif",
);

# Non-portable code using regex
foreach my $path (@paths) 
 (my $basename = $path) =~ s,.*/,,;
 print "$path -> $basenamen";


# Portable implementation using Perl core modules
use File::Spec;

foreach my $path (@paths) 
 my(undef, undef, $basename) = File::Spec->splitpath($path);
 print "$path -> $basenamen";


exit 0;

Test run:

$ perl dummy.pl
xyz/c.html -> c.html
xyz/i/x.gif -> x.gif
xyz/c.html -> c.html
xyz/i/x.gif -> x.gif

share|improve this answer

answered Mar 26 at 12:36

Stefan BeckerStefan Becker

4,58133 gold badges1111 silver badges2525 bronze badges

add a comment | 

2

You could substitute everything up to the last slash (/). But that approach is non-portable. Perl core comes with File::Spec which allows you to write portable code:

#!/usr/bin/perl
use warnings;
use strict;

my @paths = (
 "xyz/c.html",
 "xyz/i/x.gif",
);

# Non-portable code using regex
foreach my $path (@paths) 
 (my $basename = $path) =~ s,.*/,,;
 print "$path -> $basenamen";


# Portable implementation using Perl core modules
use File::Spec;

foreach my $path (@paths) 
 my(undef, undef, $basename) = File::Spec->splitpath($path);
 print "$path -> $basenamen";


exit 0;

Test run:

$ perl dummy.pl
xyz/c.html -> c.html
xyz/i/x.gif -> x.gif
xyz/c.html -> c.html
xyz/i/x.gif -> x.gif

share|improve this answer

answered Mar 26 at 12:36

Stefan BeckerStefan Becker

4,58133 gold badges1111 silver badges2525 bronze badges

add a comment | 

You could substitute everything up to the last slash (/). But that approach is non-portable. Perl core comes with File::Spec which allows you to write portable code:

#!/usr/bin/perl
use warnings;
use strict;

my @paths = (
 "xyz/c.html",
 "xyz/i/x.gif",
);

# Non-portable code using regex
foreach my $path (@paths) 
 (my $basename = $path) =~ s,.*/,,;
 print "$path -> $basenamen";


# Portable implementation using Perl core modules
use File::Spec;

foreach my $path (@paths) 
 my(undef, undef, $basename) = File::Spec->splitpath($path);
 print "$path -> $basenamen";


exit 0;

Test run:

$ perl dummy.pl
xyz/c.html -> c.html
xyz/i/x.gif -> x.gif
xyz/c.html -> c.html
xyz/i/x.gif -> x.gif

share|improve this answer

answered Mar 26 at 12:36

Stefan BeckerStefan Becker

4,58133 gold badges1111 silver badges2525 bronze badges

#!/usr/bin/perl
use warnings;
use strict;

my @paths = (
 "xyz/c.html",
 "xyz/i/x.gif",
);

# Non-portable code using regex
foreach my $path (@paths) 
 (my $basename = $path) =~ s,.*/,,;
 print "$path -> $basenamen";


# Portable implementation using Perl core modules
use File::Spec;

foreach my $path (@paths) 
 my(undef, undef, $basename) = File::Spec->splitpath($path);
 print "$path -> $basenamen";


exit 0;

$ perl dummy.pl
xyz/c.html -> c.html
xyz/i/x.gif -> x.gif
xyz/c.html -> c.html
xyz/i/x.gif -> x.gif

share|improve this answer

answered Mar 26 at 12:36

Stefan BeckerStefan Becker

4,58133 gold badges1111 silver badges2525 bronze badges

answered Mar 26 at 12:36

Stefan BeckerStefan Becker

4,58133 gold badges1111 silver badges2525 bronze badges

answered Mar 26 at 12:36

Stefan BeckerStefan Becker

4,58133 gold badges1111 silver badges2525 bronze badges