extract_classes.pl revision 4632
4632N/A#!/usr/bin/perl
4632N/A#
4632N/A# Copyright (c) 2011, Oracle and/or its affiliates. All rights reserved.
4632N/A# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4632N/A#
4632N/A# This code is free software; you can redistribute it and/or modify it
4632N/A# under the terms of the GNU General Public License version 2 only, as
4632N/A# published by the Free Software Foundation. Oracle designates this
4632N/A# particular file as subject to the "Classpath" exception as provided
4632N/A# by Oracle in the LICENSE file that accompanied this code.
4632N/A#
4632N/A# This code is distributed in the hope that it will be useful, but WITHOUT
4632N/A# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
4632N/A# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
4632N/A# version 2 for more details (a copy is included in the LICENSE file that
4632N/A# accompanied this code).
4632N/A#
4632N/A# You should have received a copy of the GNU General Public License version
4632N/A# 2 along with this work; if not, write to the Free Software Foundation,
4632N/A# Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
4632N/A#
4632N/A# Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
4632N/A# or visit www.oracle.com if you need additional information or have any
4632N/A# questions.
4632N/A##
4632N/A
4632N/A$file_dir = $ARGV[0];
4632N/A@file_list = qx("/usr/bin/find" "$file_dir");
4632N/A
4632N/Aforeach $file (@file_list) {
4632N/A if ($file =~ s/\.class//) {
4632N/A if ($file !~ s/\$[0-9]//) {
4632N/A $file =~ s/$file_dir\///g;
4632N/A $file =~ s/\//\./g;
4632N/A chomp($file);
4632N/A print "$file,";
4632N/A }
4632N/A }
4632N/A}