These scripts will: Before running the scripts, ensure: 1\ufe0f\u20e3 Save the script as 1\ufe0f\u20e3 Save the script as \u2714 This Ruby and Perl script allows you to efficiently list Perforce clients sorted by last access date<\/strong>.<\/p>\n\n\n\n <\/p>\n","protected":false},"excerpt":{"rendered":" These scripts will:\u2705 Connect to the Perforce server\u2705 Retrieve a list of clients (workspaces)\u2705 Sort them by last access date (descending order) 1. Prerequisites Before running the scripts, ensure:\u2714 Perforce CLI (p4) is installed and accessible in PATH\u2714 You have Perforce credentials (server, username)\u2714 You can run p4 clients -l successfully in the command line…<\/p>\n","protected":false},"author":1,"featured_media":3616,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_kad_post_transparent":"","_kad_post_title":"","_kad_post_layout":"","_kad_post_sidebar_id":"","_kad_post_content_style":"","_kad_post_vertical_padding":"","_kad_post_feature":"","_kad_post_feature_position":"","_kad_post_header":false,"_kad_post_footer":false,"_kad_post_classname":"","_joinchat":[],"footnotes":""},"categories":[370],"tags":[380,903,1905,1910,1904,1911,545,1906,1908,278,1907,1909],"class_list":["post-86","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-perforce","tag-access","tag-clients","tag-date","tag-date-order","tag-descending","tag-descending-access-date-order","tag-how","tag-order","tag-order-date","tag-script","tag-script-to-list-the-clients-in-descending-access","tag-sort"],"_links":{"self":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts\/86","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/comments?post=86"}],"version-history":[{"count":4,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts\/86\/revisions"}],"predecessor-version":[{"id":48322,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts\/86\/revisions\/48322"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/media\/3616"}],"wp:attachment":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/media?parent=86"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/categories?post=86"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/tags?post=86"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\u2705 Connect to the Perforce server<\/strong>
\u2705 Retrieve a list of clients (workspaces)<\/strong>
\u2705 Sort them by last access date (descending order)<\/strong><\/p>\n\n\n\n
\n\n\n\n1. Prerequisites<\/strong><\/h2>\n\n\n\n
\u2714 Perforce CLI (p4<\/code>)<\/strong> is installed and accessible in PATH<\/code>
\u2714 You have Perforce credentials<\/strong> (server, username)
\u2714 You can run p4 clients -l<\/code> successfully in the command line<\/p>\n\n\n\n
\n\n\n\n2. Ruby Script: List Perforce Clients by Last Access Date<\/strong><\/h1>\n\n\n
#!\/usr\/bin\/env ruby<\/span>\n\n# Define Perforce server details<\/span>\nP4PORT = \"perforce.company.com:1666\"<\/span>\nP4USER = \"your_username\"<\/span>\n\n# Run 'p4 clients -l' command and capture output<\/span>\nclients_output = `p4 -p #{P4PORT} -u #{P4USER} clients -l`<\/span>\n\n# Parse the output and extract client name and access date<\/span>\nclients = []\nclients_output.split(\"\\n\\n\"<\/span>).each do<\/span> |entry|\n client = entry.match(\/^Client (\\S+)\/)&.captures&.first\n access_time = entry.match(\/^Access:\\s+(\\d+)\/)&.captures&.first.to_i\n \n clients << { name: client, access: access_time } if<\/span> client && access_time > 0<\/span>\nend\n\n# Sort clients by last access date (descending order)<\/span>\nsorted_clients = clients.sort_by { |c| -c[:access] }\n\n# Print results<\/span>\nputs \"Perforce Clients Sorted by Last Access Date (Descending):\"<\/span>\nsorted_clients.each do<\/span> |client|\n puts \"#{client[:name]} - Last Access: #{Time.at(client[:access])}\"<\/span>\nend\n<\/code><\/span>Code language:<\/span> PHP<\/span> (<\/span>php<\/span>)<\/span><\/small><\/pre>\n\n\nHow to Run the Ruby Script<\/strong><\/h3>\n\n\n\n
list_p4_clients.rb<\/code><\/strong>
2\ufe0f\u20e3 Replace \"perforce.company.com:1666\"<\/code> and \"your_username\"<\/code> with your actual Perforce server details<\/strong>
3\ufe0f\u20e3 Open a terminal and run:<\/p>\n\n\nruby<\/span> list_p4_clients<\/span>.rb<\/span>\n<\/code><\/span>Code language:<\/span> CSS<\/span> (<\/span>css<\/span>)<\/span><\/small><\/pre>\n\n\n
\n\n\n\n3. Perl Script: List Perforce Clients by Last Access Date<\/strong><\/h1>\n\n\n
#!\/usr\/bin\/perl<\/span>\nuse<\/span> strict<\/span>;\nuse<\/span> warnings<\/span>;\n\n# Define Perforce server details<\/span>\nmy $P4PORT = \"perforce.company.com:1666\"<\/span>;\nmy $P4USER = \"your_username\"<\/span>;\n\n# Run 'p4 clients -l' command and capture output<\/span>\nmy @clients_output = `p4 -p $P4PORT -u $P4USER clients -l`;\n\n# Parse output to extract client name and access time<\/span>\nmy @clients;\nmy ($client, $access_time);\nforeach<\/span> my $line (@clients_output) {\n if<\/span> ($line =~ \/^Client (\\S+)\/) {\n $client = $1<\/span>;\n } elsif ($line =~ \/^Access:\\s+(\\d+)\/) {\n $access_time = $1<\/span>;\n push @clients, { name => $client, access => $access_time } if<\/span> $client && $access_time;\n }\n}\n\n# Sort clients by last access date (descending order)<\/span>\n@clients = sort { $b->{access} <=> $a->{access} } @clients;\n\n# Print results<\/span>\nprint<\/span> \"Perforce Clients Sorted by Last Access Date (Descending):\\n\"<\/span>;\nforeach<\/span> my $c (@clients) {\n my $date = scalar localtime($c->{access});\n print<\/span> \"$c->{name} - Last Access: $date\\n\"<\/span>;\n}\n<\/code><\/span>Code language:<\/span> PHP<\/span> (<\/span>php<\/span>)<\/span><\/small><\/pre>\n\n\nHow to Run the Perl Script<\/strong><\/h3>\n\n\n\n
list_p4_clients.pl<\/code><\/strong>
2\ufe0f\u20e3 Replace \"perforce.company.com:1666\"<\/code> and \"your_username\"<\/code> with your actual Perforce server details<\/strong>
3\ufe0f\u20e3 Open a terminal and run:<\/p>\n\n\nperl<\/span> list_p4_clients<\/span>.pl<\/span>\n<\/code><\/span>Code language:<\/span> CSS<\/span> (<\/span>css<\/span>)<\/span><\/small><\/pre>\n\n\n
\n\n\n\n4. Explanation<\/strong><\/h1>\n\n\n\n
p4 clients -l<\/code><\/strong> retrieves all client workspaces<\/strong> with detailed info
\u2714 The script extracts the client name<\/strong> and last access date<\/strong>
\u2714 Clients are sorted in descending order<\/strong> based on last access timestamp
\u2714 Dates are converted from epoch time<\/strong> to human-readable format<\/p>\n\n\n\n
\n\n\n\n5. Conclusion<\/strong><\/h1>\n\n\n\n