how to get all individual matches from a regex in perl?





.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box;
}







1















I have this:



my %names = qw (hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond);


or this:



my $scalar_string = "hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond";


How to get all first and last name use /[w']+ [w']+/?










share|improve this question































    1















    I have this:



    my %names = qw (hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond);


    or this:



    my $scalar_string = "hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond";


    How to get all first and last name use /[w']+ [w']+/?










    share|improve this question



























      1












      1








      1


      1






      I have this:



      my %names = qw (hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond);


      or this:



      my $scalar_string = "hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond";


      How to get all first and last name use /[w']+ [w']+/?










      share|improve this question
















      I have this:



      my %names = qw (hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond);


      or this:



      my $scalar_string = "hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond";


      How to get all first and last name use /[w']+ [w']+/?







      arrays regex string perl






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Nov 25 '18 at 11:01









      choroba

      160k15142212




      160k15142212










      asked Nov 25 '18 at 10:55









      Nutiu RaduNutiu Radu

      398




      398
























          1 Answer
          1






          active

          oldest

          votes


















          4














          If you start with a hash, just use keys and values to extract the first names and last names. To extract the names from a string, just add capture groups and /g to find all the matches:



          #!/usr/bin/perl
          use warnings;
          use strict;
          use feature qw{ say };

          my %names = qw (hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond);

          say join ' ', 'First names:', keys %names;
          say join ' ', 'Last names:', values %names;

          my $scalar_string = "hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond";

          my (@first_names, @last_names);
          while ($scalar_string =~ /([w']+) ([w']+)/g) {
          push @first_names, $1;
          push @last_names, $2;
          }
          say join ' ', 'First names:', @first_names;
          say join ' ', 'Last names:', @last_names;





          share|improve this answer
























            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


















            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53466759%2fhow-to-get-all-individual-matches-from-a-regex-in-perl%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown

























            1 Answer
            1






            active

            oldest

            votes








            1 Answer
            1






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            4














            If you start with a hash, just use keys and values to extract the first names and last names. To extract the names from a string, just add capture groups and /g to find all the matches:



            #!/usr/bin/perl
            use warnings;
            use strict;
            use feature qw{ say };

            my %names = qw (hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond);

            say join ' ', 'First names:', keys %names;
            say join ' ', 'Last names:', values %names;

            my $scalar_string = "hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond";

            my (@first_names, @last_names);
            while ($scalar_string =~ /([w']+) ([w']+)/g) {
            push @first_names, $1;
            push @last_names, $2;
            }
            say join ' ', 'First names:', @first_names;
            say join ' ', 'Last names:', @last_names;





            share|improve this answer




























              4














              If you start with a hash, just use keys and values to extract the first names and last names. To extract the names from a string, just add capture groups and /g to find all the matches:



              #!/usr/bin/perl
              use warnings;
              use strict;
              use feature qw{ say };

              my %names = qw (hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond);

              say join ' ', 'First names:', keys %names;
              say join ' ', 'Last names:', values %names;

              my $scalar_string = "hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond";

              my (@first_names, @last_names);
              while ($scalar_string =~ /([w']+) ([w']+)/g) {
              push @first_names, $1;
              push @last_names, $2;
              }
              say join ' ', 'First names:', @first_names;
              say join ' ', 'Last names:', @last_names;





              share|improve this answer


























                4












                4








                4







                If you start with a hash, just use keys and values to extract the first names and last names. To extract the names from a string, just add capture groups and /g to find all the matches:



                #!/usr/bin/perl
                use warnings;
                use strict;
                use feature qw{ say };

                my %names = qw (hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond);

                say join ' ', 'First names:', keys %names;
                say join ' ', 'Last names:', values %names;

                my $scalar_string = "hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond";

                my (@first_names, @last_names);
                while ($scalar_string =~ /([w']+) ([w']+)/g) {
                push @first_names, $1;
                push @last_names, $2;
                }
                say join ' ', 'First names:', @first_names;
                say join ' ', 'Last names:', @last_names;





                share|improve this answer













                If you start with a hash, just use keys and values to extract the first names and last names. To extract the names from a string, just add capture groups and /g to find all the matches:



                #!/usr/bin/perl
                use warnings;
                use strict;
                use feature qw{ say };

                my %names = qw (hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond);

                say join ' ', 'First names:', keys %names;
                say join ' ', 'Last names:', values %names;

                my $scalar_string = "hanibal lecter Harry Potter INDIANA JONES Sarah connor scarlet O'Hara JAMES Bond";

                my (@first_names, @last_names);
                while ($scalar_string =~ /([w']+) ([w']+)/g) {
                push @first_names, $1;
                push @last_names, $2;
                }
                say join ' ', 'First names:', @first_names;
                say join ' ', 'Last names:', @last_names;






                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered Nov 25 '18 at 11:05









                chorobachoroba

                160k15142212




                160k15142212
































                    draft saved

                    draft discarded




















































                    Thanks for contributing an answer to Stack Overflow!


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid



                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.


                    To learn more, see our tips on writing great answers.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function () {
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53466759%2fhow-to-get-all-individual-matches-from-a-regex-in-perl%23new-answer', 'question_page');
                    }
                    );

                    Post as a guest















                    Required, but never shown





















































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown

































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown







                    這個網誌中的熱門文章

                    Hercules Kyvelos

                    Tangent Lines Diagram Along Smooth Curve

                    Yusuf al-Mu'taman ibn Hud